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-The  purposes -of  this  study  are:  (1)  To  incorporate  into  the  finite 
element  computer  program  for  plane  strain  analyses;  with  capabilities  to 
perform  joint  perturbation,  no  tension  and  elasto-plastic  analyses 
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fa)  structural  support  schemes  used  in  the  construction  and  design  of 
tunnels,  and  (b)  excavation  techniques  and  construction  and  excavation 
sequences  in  underground  construction.  (2)  To  evaluate  the  analytical 
method  developed  in  (1)  by  a  study  of  case  histories.  This  report  discusses 
{i)  the  available  information  on  excavation  techniques,  construction  and 
excavation  sequences,  the  mechanisms  of  ground  support  and  the  current 
design  techniques  for  support  schemes^ (fi)  formulation  of  the  computational 
models  on  the  basis  of  the  review  in  (1);  (iii)'  modification  of  the  com¬ 
puter  program  to  incorporate  the  computational  models;  and  (iv)  analysis 
of  well -documented  model  tests  and  case  histories  of  underground  openings 
which  include  the  analysis  of  model  tests  on  lined  and  unlined  openings  in 
jointed  rock,  and  the  analysis  of  Tumut  1  Underground  Power  Station  and  a 
rock  tunnel  of  Washington,  D.C.  Subway  (METRO) . 
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TECHNICAL  REPORT  SUMMARY 

CONTRACT  OBJECTIVES 

The  objectives  of  this  contract  are: 

(1)  To  incorporate  into  the  finite  element  computer  pro¬ 
gram  for  plane  strain  analysis,  with  capabilities  to  perform 
joint  perturbation,  no  tension  and  elasto-plastic  analyses 
developed  under  Contract  No.  H0210046,  the  capability  to 
model  and  analyze:  (a)  structural  support  schemes  used  in 
the  construction  and  design  of  tunnels,  and  (b)  typical 
excavation  sequences  utilized  in  underground  construction, 
and 

(2)  To  evaluate  the  analytical  method  (computer  program) 
developed  in  (1)  by  a  study  of  case  histories. 

GENERAL  APPROACH  AND  TECHNICAL  RESULTS 

The  approach  to  this  study  can  be  divided  into  two  phases: 

I.  On  the  basis  of  available  information  on  excavation 
techniques,  construction  and  excavation  sequence,  mecha¬ 
nisms  of  ground  support  and  current  design  techniques  for 
support  systems,  formulate  computational  models  and  modify 
the  existing  computer  program  to  incorporate  these  com¬ 
putational  models,  and 

II.  Analyze  case  histories  and  compare  predicted  and 
measured  performance. 

(I)  Formulation  of  Computational  Models  and  Modifications 
of  Existing  Computer  Program 

On  the  basis  of  the  review  of  the  available  information,  the 
following  modelling  concepts  were  developed: 
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(1)  Excavation  Techniques  -  It  is  known  that  excavation 
of  an  opening  creates  some  disturbance  in  a  rock  mass  sur¬ 
rounding  the  opening.  Depending  upon  the  excavation  tech¬ 
nique,  e.g.,  drilling  and  blasting,  smooth  wall  blasting 

or  boring  machine,  rock  conditions  and  time  of  installation 
of  support  systems,  the  zones  of  loosening  and  fracturing 
and  the  depths  of  overbreak  around  the  opening  will  be 
different.  Zones  of  disturbance  may  be  estimated  on  the 
basis  of  experience  at  locations  with  similar  geologic 
conditions  and  excavation  methods  or  determined  by  seismic 
refraction  surveys  in  the  field. 

The  essential  features  that  have  to  be  modelled  in  simu¬ 
lating  the  effects  of  excavation  techniques  are  the 
following : 

(i)  The  stress-free  excavation  face.  It  has  been  shown 
that  excavation  may  be  simulated  in  the  finite 
element  method  by  applying  stresses  to  the  boundary 
exposed  by  excavation  so  that  there  s  no  resultant 
stress  on  the  excavation  face.  A  similar  technique 
was  used  in  this  study. 

(ii)  The  disturbed  zone  in  the  vicinity  of  the  excavation. 
This  zone  can  be  modelled  by  assuming  a  lower 
modulus  for  the  material  in  the  zone  or  by  assuming 
that  the  material  is  incapable  of  carrying  any 
tensile  stress.  Both  these  techniques  were  utilized 
in  this  study. 

(2)  Construction  and  Excavation  Sequence  -  The  essential 
features  to  be  modelled  and  the  basic  concepts  in  modelling 
them  are  described  below: 
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(i)  The  time  sequence  of  construction,  including 

installation  of  supports.  Because  of  the  limi¬ 
tations  that  only  time- independent  material 
properties  can  be  included  in  the  program,  the 
time  sequence  of  construction  will  be  modelled 
in  accordance  with  the  following  two-stage 
analyses : 

(a)  A~  initial  analysis  prior  to  any  support 
installation  will  be  conducted. 

(b)  A  subsequent  analysis  will  be  conducted 
with  the  support  system  installation  treat¬ 
ing  the  results  of  the  analysis  in  (a)  as 
the  initial  condition.  In  a  practical 
problem,  it  will  be  necessary  to  bracket 
possible  initial  conditions. 

(ii)  The  excavation  sequence.  The  opening  goes  through 
many  shapes  before  reaching  the  final  shape.  If 
the  problem  could  be  treated  as  linear  elastic, 
the  final  stress  distribution  would  be  independent 
of  the  excavation  sequence;  for  non-linear  problems, 
it  is  necessary  to  consider  the  sequence.  Excavation 
sequence  will  be  simulated  by  removing  those  elements 
that  will  be  excavated  and  ensuring  that  the  exca¬ 
vation  face  is  stress  free. 

(3)  Support  Systems  -  This  development  is  based  on  consider¬ 
ing  the  interaction  of  the  support  and  the  surrounding  rock 
mass.  The  three  basic  support  systems  considered  in  this 
study,  (,i)  steel  sets,  (ii)  rock  bolts,  and  (iii)  shotcrete 
liners,  are  discussed  separately. 
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(i)  Steel  Sets  -  A  series  of  beam  elements  which  are 

capable  of  carrying  both  bending  and  axial  stresses 
may  be  used  to  idealize  a  steel  set.  The  support- 
rock  connections  i.e.,  blockings,  may  be  idealized 
by  a  one -d imens ional  or  a  regular  element  if  the 
connections  are  to  transfer  only  axial  forces  or 
both  axial  and  shear  forces.  As  described  pre¬ 
viously,  this  study  is  confined  to  analysis  of 
plane  problems;  and,  thus,  both  the  opening  and 
its  support  system  are  to  be  idealized  as  plane 
strain  problems.  It  is  proposed  that  the  sets 
along  some  length  of  the  tunnel  be  idealized  by 
a  continuous  support  with  a  section  modulus 
equivalent  to  the  average  section  modulus  of  the 
sets.  The  blockings  are  assumed  to  be  continuous 
along  the  length  of  the  tunnel. 

(ii)  Rock  Bolts  -  Because  of  difficulties  associated  with 
analysis  of  a  rock  bolt  system  i.e.,  the  three- 
dimensional  aspect,  the  interaction  of  each  rock 
bolt  with  the  rock  cannot  be  modelled  in  this  study. 
The  following  approximations  are  proposed  to  idea¬ 
lize  the  rock  bolt  support  system: 

(a)  To  increase  the  stiffness  of  the  rock  mass 
in  the  immediate  vicinity  of  rock  bolts  to 
account  for  the  presence  of  rock  bolts  and 
grouted  rock  bolts. 

(b)  To  approximate  the  effects  of  tensioned  bolts 
on  the  rock  mass  by  applying  a  set  of  opposite 
concentrated  loads  at  the  anchor  and  bearing 
plate.  Each  concentrated  load  is  considered 
to  be  an  equivalent  line  load  along  the  tunnel 
axis  to  represent  a  row  of  rock  bolts.  The 
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magnitude  of  the  line  load  is  etermined  by 
the  bolt  tension  and  the  spacing  of  bolts. 

(c)  Untensioned  grouted  rock  bolts  may  be  idea¬ 
lized  as  one-dimensional  bar  elements  with 
material  properties  similar  to  those  of  rock 
bolts. 

(iii)  Shotcrete  or  Concrete  Linings  -  Shotcrete  or  con¬ 
crete  linings  may  be  idealized  as  a  plane  strain 
structure.  Grouting  or  back  packing  behind  the 
lining  may  be  modelled  in  the  analysis  with  mate¬ 
rials  of  different  stiffness. 

Before  modifications  were  made  for  the  present  contract,  two 
improvements  were  incorporated  into  the  program.  These  were 
O)  utilization  of  elasto-plastic  stress-strain  relationship 
to  compute  the  axial  strain,  and  (ii)  updating  the  element 
stiffness  at  each  load  increment  to  improve  convergence. 

Several  example  problems  were  solved  using  the  modified  com¬ 
puter  program,  and  the  results  compared  when  possible  with 
results  published  by  other  investigators. 

(II)  Evaluation  of  Analytical  Method  (Computer  Program)  - 
Case  History  Studies 

To  illustrate  the  use  and  evaluate  the  capabilities  of  the 
computer  program  model  developed  in  (Ij  well  documented 
case  histories  on  the  performance  of  underground  openings 
were  analyzed.  These  covered  a  range  of  conditions  to 
illustrate  the  wide  applicability  of  ^he  program.  Computed 
performance  was  compared  with  observed  performance. 

The  cases  analyzed  are  described  below. 
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Model  Tests  -  (a)  Lined  and  (b)  Unlined  Openings 

The  model  tests  conducted  by  Hendron  et  al.  (1972)  on  lined 
openings  in  jointed  rock  were  analyzed.  The  model  has  a 
Cv.  ed  opening  of  4  inches  in  diameter  and  a  0.035- inch- 
thick  aluminum  liner  and  was  constructed  with  a  2- inch 
joint  spacing  in  two  mutually  perpendicular  directions  at 
45°  to  the  principal  loading  directions.  The  model  was 
tested  at  a  principal  stress  ratio,  ctjj/ ay  =  2/3  to  a  maxi¬ 
mum  vertical  model  pressure  of  1300  psi  under  plane  strain 
conditions  and  was  instrumented  with  eight  pairs  of  buried 
extensometers  and  six  diametrical  extensometers  in  the 
tunnel  liner  to  measure  the  def ormabil ity  of  the  jointed 
model  as  well  as  the  movements  around  the  opening.  Both 
the  joints  and  the  liner  were  modelled  in  the  analysis. 

The  Tunut  I  Underground  Power  Station 

The  power  station  is  situated  under  the  lower  part  of  the 
very  steep  eastern  wall  of  the  Tumut  Valley  in  the  Snowy 
Mountains  of  Southeast  Australia.  It  is  located  about  1100 
feet  vertically  below  the  ground  surface,  1200  feet  in  from 
the  river,  and  150  feet  below  the  level  of  the  river  bed. 

The  machine  hall  is  306  feet  in  length,  44  feet  in  maximum 
width,  and  104  feet  in  maximum  height.  The  machine  hall 
excavation  was  made  in  several  stages.  After  the  pilot 
tunnel  was  driven,  the  roof  section  of  the  machine  hall  was 
excavated  to  full  width,  systematical  rock  bolts  and  per¬ 
manent  concrete  ribs  installed.  Following  this,  the  main 
body  of  the  machine  hall  was  excavated  by  quarrying  methods. 
The  vertical  walls  and  roof  were  systematically  rock-bolted 
as  soon  as  they  were  exposed.  The  behavior  of  the  rock  mass 
around  the  machine  hall  was  observed  during  construction  by 
strain  measurement s  in  many  of  the  reinforced  concrete  arch 
ribs  and  measurements  of  the  horizontal  movements  of  points 
at  the  ends  of  the  concrete  ribs  and  on  the  rock  walls,  and 
angular  rotation  of  points  on  the  reinforced  concrete  abutment 
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beams  and  on  the  rock  walls.  A  simplified  excavation 
sequence  and  the  influence  of  rock  bolts  and  concrete 
ribs  were  included  in  the  analysis.  Two  'faults'  which 
intersect  the  machine  hall  were  also  modelled  in  the 
analysis . 

Rook  Tunnel  Washington  D.C.  METRO 

The  rock  tunnel  analyzed  was  driven  through  a  foliated  rock- 
schistose  gneiss  of  quartz-mica  composition.  Average 
rock  quality,  defined  as  the  RQD  of  the  rock  cores,  ranges 
between  fair  to  good,  except  in  the  shear  zones  where  rock 
quality  is  poor  to  very  poor.  The  geologic  features  present 
at  the  tunnel  consist  of  four  highly  continuous,  smooth, 
planar  joint  sets  and  eight  major  shear  zones.  The  major 
shear  zones  and  two  of  the  joint  sets  are  subparallel  to 
rock  foliation  and  strike  within  10°  of  the  axis  of  the 
tunnel.  The  tunnel  was  excavated  in  several  stages  together 
with  installation  of  shotcrete,  grouted  rock  bolts  and  steel 
ribs.  Rock  movements  were  monitored  by  a  series  of  multiple 
position  extensometer  during  excavation.  Rock  reinforcement, 
joints  and  a  simplified  excavation  sequence  were  utilized 
in  the  analysis. 

Results 

Verification  of  the  program  in  the  strictest  sense  was  not 
possible  because  in  all  the  cases  analyzed  there  was  insuf¬ 
ficient  direct  information  to  model  all  significant  aspects 
of  the  problem.  The  major  lack  of  information  was  found 
to  be  with  respect  to  geologic  discontinuities.  It  is 
believed  that  this  will  be  true  in  most  practical  problems. 
Analysis  of  the  case  histories  has  shown  that  it  is  possible 
by  means  of  a  parametric  study  to  select  appropriate  proper¬ 
ties  of  geologic  discontinuities  which  are  both  reasonable 
according  to  published  information  and  if  used  in  further 
analysis  will  result  in  predictions  of  reasonable  accuracy. 
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A  collection  of  case  history  studies  categorized  by  geologic 
conditions  would  provide  a  means  of  selecting  appropriate 
properties  to  predict  the  performance  of  excavations.  Fur¬ 
thermore,  in  a  continuing  excavation  (e.g.  a  subway)  infor¬ 
mation  obtained  during  its  early  stages  can  be  used  to  calibrate 
the  program  in  terms  of  appropriate  properties  to  predict 
future  performance.  The  results  indicate  that  the  program 
developed  can  be  an  extremely  useful  aid  in  designing  excavations 
in  rock. 

POD  IMPLICATIONS 

The  evaluation  of  the  structural  stability  of  underground  openings, 
ground  support  structures,  and  other  facilities  is  an  essential 
step  both  in  the  design  and  in  the  survivability/vulnerability 
assessment  of  underground  structures  and  weapon  systems. 

A  computer  program  has  been  developed  to  analyze  the  influence 
of  excavation  techniques,  construction,  and  excavation  sequence 
and  structural  support  schemes  on  the  stability  of  excavations 
in  rock  masses  where  the  rock  mass  behavior  is  dominated  by 
block  slippage  along  discrete  joint  planes,  or  a  global  inability 
of  the  rock  mass  to  resist  tensile  stress,  or  elastic-plastic 
behavior  of  the  rock  mass,  or  any  combination  of  the  three  rock 
mass  physical  characteristics.  This  computer  program  should 
be  considered  as  a  tool  to  assist  in  the  evaluation  of  supported 
and  unsupported  underground  openings. 

CONSIDERATIONS  FOR  FURTHER  RESEARCH 

Studies  of  a  limited  number  of  the  case  histories  have  indicated 
that  the  analytical  models  developed  under  this  contract  could 
predict  the  behavior  of  underground  openings  with  reasonable 
accuracy.  As  indicated,  the  major  problem  in  utilizing  the 
computer  code  is  the  lack  of  information  on  the  properties  of 
geologic  discontinuities. 
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By  studying  additional  well  documented  case  histories  and 
using  an  iterative  procedure  appropriate  material  properties 
for  different  geologic  conditions  can  be  determined.  Such 
information  would  be  extremely  valuable  for  future  work  and 
should  be  developed. 
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INTRODUCTION 

In  the  previous  contract  (H0210046),  a  general  plane  strain 
finite  element  computer  program  was  developed  for  the  analysis 
of  underground  openings  in  rock.  Under  the  present  contract, 
it  is  proposed  to  add  to  the  capabilities  of  this  computer 
program  by  including  techniques  to  analyze  the  influence  of 
excavation  techniques,  construction  and  excavation  sequence, 

and  structural  support  schemes  on  the  stability  of  excavations 
in  rock. 

Because  of  the  development  of  increased  analytical  capabilities, 
it  is  considered  appropriate  to  consider  these  capabilities 
in  the  context  of  the  total  problem  of  evaluating  the  stability 
of  openings  in  rock.  Whereas  the  results  of  analytical  studies 
can  be  of  great  assistance  in  the  evaluation  of  stability, 
there  are  several  other  factors  that  enter  into  the  evaluation, 
and  it  is  necessary  that  one  not  be  lulled  into  a  sense  of 
false  security  because  of  elaborate  computational  techniques. 

METHODOLOGY  FOR  EVALUATING  THE  STABILITY  OF  OPENINGS  IN  ROCK 
Analysis  of  openings  in  rock  is  a  complex  problem  because  of 
the  numerous  factors  influencing  the  behavior  and  stability  of 
the  opening.  These  include  (i)  rock  properties,  (ii)  the  loca¬ 
tion,  geometry  and  size  of  the  opening,  (iii)  geologic  condi¬ 
tions  such  as  joints,  foliation  surfaces,  bedding  planes,  shear 
zones  and  fault  zones,  (iv)  in-situ  stress  conditions,  (v)  exca¬ 
vation  and  construction  methods,  and  (vi)  support  systems. 

Because  of  the  complexity  of  the  nroble.i,  it  is  appropriate 
to  develop  a  general  framework  for  evaluating  the  stability 
of  openings  in  rock.  Such  an  approach  is  summarized  in  Figure  1. 
This  approach  consists  of  the  following  major  steps: 

1*  §l.tfablishment  of  Objectives  and  Performance  Criteria. 

In  any  design  process,  it  is  necessary  to  establish  the  objec¬ 
tives  of  the  design  and  to  translate  these  objectives  into 
performance  criteria.  In  general,  the  objective  of  the  design 
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is  that  the  opening  remains  stable  and  usable  during  its  design 
life.  The  performance  criteria,  for  example,  may  be  in  terms 
of  limiting  the  stress,  strain  and/or  displacement  induced  in 
the  rock  mass  and  support  system  surrounding  the  opening. 

2.  Definition  of  Input  and  Output  (Response)  Variables. 

The  major  inputs  can  be  considered  in  terms  of  loads,  external 
and  internal,  e.g.,  in-situ  stress,  the  effects  of  construction 
methods  and  excavation  techniques  including  environmental 
(temperature  and  moisture)  factors.  The  output  variables  may 
be  stress,  strain  and  displacement  in  the  rock  mass  and  support 
system.  In  defining  the  output  variables,  it  should  be  recog¬ 
nized  tnat  tney  should  be  in  terms  of  the  performance  criteria 
in  order  that  a  comparison  can  be  made. 

3*  Physical  Description  of  the  System.  The  description 
of  the  system  consists  of  the  following:  (a)  the  size  and 
geometry  of  the  opening,  (b)  its  location  below  the  ground 
surface,  (c)  distribution  of  geologic  discontinuities  (e.g., 
joints,  foliation,  bedding  planes,  faults,  shear  zones)  of 
the  rock  mass,  (d)  mechanical  properties  of  the  rock  mass, 
and  (e)  support  svstems  used  to  maintain  stability. 

4.  Determination  of  the  Response  of  the  System.  This 
requires  (i)  the  development  of  a  model  or  idealization  for 
the  system,  and  (ii)  the  use  of  analytical  and  experimental 
techniques  to  determine  the  response  of  the  model  to  the 
prescribed  inputs.  There  are  two  general  approaches  for  de¬ 
termining  the  response  of  the  system. 

(a)  Experimental  Approach  -  Laboratory  models  using 
photoelastic  techniques  or  blocks  of  rock-like  materials 
tested  under  simulated  field  conditions  or  a  full  scale 
test  conducted  in  the  field  may  provide  data  which  can 
be  useful  in  understanding  the  behavior  of  the  real  struc¬ 
ture  and  developing  an  empirical  design  procedure  for  open¬ 
ings  constructed  under  similar  geologic  conditions.  However, 
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it  is  often  difficult  to  extrapolate  an  empirical  design 
procedure  to  conditions  different  from  those  under  which  the 
procedure  was  developed. 

(b)  Mac roanalyt ical  Approach  -  This  approach  involves 
the  development  of  a  mathematical  model  for  the  system  and 
the  solution  of  an  appropriate  boundary  value  problem.  The 
development  of  such  a  model  should  be  based  on  a  physical 
understanding  of  the  problem  and  an  evaluation  of  past 
performance.  The  objective  of  such  an  approach  is  to  de¬ 
velop  a  general,  theoretically-  sound  method  of  analysis  on 
the  basis  of  which  the  output  of  the  system  can  be  deter¬ 
mined  if  the  input  is  prescribed  and  the  system  adequately 
described.  It  is  the  macroanalytical  approach  that  forms 
the  basis  for  the  majority  of  the  existing  design  methods 
in  engineering  practice.  It  ia  within  the  context  of  thia 
approach  that  the  analytical  techniquea  under  development 
in  thia  contract  have  to  be  viewed. 

5*  Decision  on  Acceptability  of  Design.  The  predicted 
output  of  the  system  should  be  compared  with  performance  cri¬ 
teria  to  see  if  stress,  strain  and  displacement  in  the  sur¬ 
rounding  rock  mass  and  support  system  are  within  allowable 
limits  to  prevent  failure  of  the  support  system  and  the  opening. 

6‘  — e  Feed  Back  Lo°P  -  Optimization.  In  the  idealization 

of  a  physical  system  as  complex  as  an  underground  excavation  in 
a  rock  mass,  it  is  necessary  to  make  many  simplifying 
assumptions.  In  order  to  establish  the  validity  of  these  assump¬ 
tions,  it  is  necessary  to  compare  the  performance  of  the  actual 
system  with  the  predictions.  This  comparison  is  essential  to 
establishing  the  reliability  of  the  techniques  developed  for 
evaluating  stability.  The  results  of  monitoring  the  performance 
of  the  actual  system  should  then  be  fed  back  into  the  methodology 
for  evaluating  stability  to  improve  the  assumptions  rnd  ideali¬ 
zations.  In  this  manner  the  methods  for  evaluating  stability 
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will  improve.  In  this  context  the  development  of  a  theoreti¬ 
cally  sound  method  for  evaluating  the  stability  of  openings 
in  rock  is  an  iterative  process  as  indicated  in  Figure  2. 

The  work  performed  under  this  and  the  previous  contract  are 
indicated  in  the  context  of  the  total  system  in  Figures  1  and 
2.  As  more  information  is  obtained  from  observed  performance 
and  better  analytical  techniques  are  developed,  there  will 
undoubtedly  be  further  improvements  in  the  methods  of  evalu¬ 
ating  stability. 

OBJECTIVES 

The  objectives  of  this  study  are: 

(1)  To  incorporate  into  the  finite  element  computer  pro¬ 
gram  for  plane  strain  analysis,  with  capabilities  to  perform 
joint  perturbation,  no  tension  and  elasto-plastic  analyses 
developed  under  Contract  No.  H0210046,  the  capability  to  model 
and  analyze: 

(a)  structural  support  schemes  used  in  the  construc¬ 
tion  and  design  of  tunnels,  and 

(b)  excavation  techniques  and  construction  and  exca¬ 
vation  sequence  in  underground  construction; 


and 


(2)  To  evaluate  the  analytical  method  developed  in  (1)  by 
a  study  of  case  histories. 

It  is  not  proposed  to  make  any  basic  modifications  in  the  pre¬ 
viously  developed  program  but  rather  to  add  to  its  capabilities. 
Therefore,  the  additional  capabilities  have  to  be  incorporated 
into  the  program  within  the  context  of  the  limitations  of  the 
previous  program;  the  major  limitations  being  (i)  plane  strain 
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*1. 

2. 


3. 


As  a  first  iteration  linear  elastic  analyses  were  utilized. 


Comparison  with  observed  performance  indicated  that 
linear  elastic  analysis  was  not  satisfactory. 


the 


We  are  now  in  the  second  iteration  having  improved  our 
analytical  methods. 


FIGURE  2 
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conditions  have  to  be  assumed,  and  (ii)  time  dependent  material 
properties  cannot  be  included.  The  emphasis  of  the  computational 
models  is  to  the  design  and  construction  of  tunnels. 

RESEARCH  APPROACH 

In  order  to  meet  the  objective  of  the  contract,  the  following 
general  research  approach  was  adopted: 

(i)  Review,  for  the  purpose  of  developing  computational 
models ,  the  available  information  on  excavation 
techniques,  construction  and  excavation  sequences, 
the  mechanisms  of  ground  support  and  the  current 
design  techniques  for  support  systems. 

(ii)  Formulate  the  computational  models  on  the  basis  of 
the  review  in  (i) . 

(iii)  Modify  the  computer  program  to  incorporate  the  compu¬ 
tational  models. 

(iv)  Select  case  histories  for  analysis. 

(v)  Idealize  the  case  history  problems  for  analysis  and 
conduct  analysis. 

(vi)  Compare  actual  performance  with  predicted  performance. 

(vii)  Formulate  conclusions  on  the  adequacy  of  the  compu¬ 
tational  method  based  on  (vi)  and  recommend  improvements. 

The  report  is  organized  in  accordance  with  this  approach. 
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EXCAVATION  TECHNIQUES,  CONSTRUCTION  AND  EXCAVATION  SEQUENCE 
AND  SUPPORT  SYSTEMS 

In  order  to  develop  models  to  include  excavation  methods, 
construction  sequence  and  support  systems,  it  is  first 
necessary  to  review  existing  information  in  these  areas  so 
that  the  essential  elements  that  should  be  modelled  can  be 
identified . 

EXCAVATION  TECHNIQUES 

The  drill  and  blast  method  and  the  boring  machine  are  two 
methods  commonly  used  in  rock  excavation.  Excavation  by 
blasting  causes  loosening  and  fracturing  of  the  rock  beyond 
the  excavated  boundary.  The  depth  of  the  disturbance  depends 
on  the  blasting  technique  and  rock  conditions,  and  may  be 
estimated  by  empirical  methods  based  on  experience  or  by  seismic 
refraction  surveys  in  the  field.  Seismic  refraction  surveys 
along  the  tunnel  walls  (Deere,  et  al.  1969)  have  shown  a  2-  to 
10-ft-thick  low  velocity  zone  which  is  considered  to  be  dis¬ 
turbed  by  blasting.  The  thickness  of  this  zone  is  a  function 
of  the  rock  quality.  The  loosening  and  the  thickness  of  the 
zone  of  disturbed  low  velocity  rock  increases  as  the  rock 
quality  decreases. 

Compared  to  the  fracturing  and  loosening  of  the  rock  by  blast¬ 
ing,  the  boring  machine  causes  little  or  no  disturbance.  The 
rock  immediately  adjacent  to  the  opening  can  be  assumed  to  have 
essentially  the  same  properties  as  that  of  the  undisturbed  rock. 

It  appears,  therefore,  that  the  essential  capability  that  should 
be  developed  in  modelling  the  excavation  technique  is  the  ability 
to  model  loose  and  fractured  rock  in  the  vicinity  of  the  opening. 

CONSTRUCTION  AND  EXCAVATION  SEQUENCE 

The  construction  sequence  is  the  sequence  in  which  the  exca¬ 
vation  is  conducted  and  the  support  system  installed.  The  effect 


WOODWARD-LUNDGREN  &  ASSOCIATES 


-9- 


of  the  time  scale  of  these  operations  depends  to  a  large  de¬ 
gree  on  the  time-dependent  response  of  the  rock. 

Tunneling  causes  changes  in  stress  and  gradual  loosening  in 
the  vicinity  of  the  opening.  The  gradual  loosening  depends 
not  only  on  the  quality,  bedding,  jointing  and  foliation  of 
rock,  as  well  as  the  width  of  the  excavation,  but  also  on  the 
distance  between  the  last  support  and  the  rock  face.  For  a 
certain  period  prior  to  breakdown,  the  loosened  rock  itself 
is  capable  of  overbridging  the  unsupported  cavity.  This  is 
referred  to  as  the  bridge-action  period  (t^) .  The  sequence 
and  method  of  excavation  should  be  selected  to  enable  the  in¬ 
stallation  of  the  necessary  new  support  before  the  bridge - 
action  period  has  expired.  The  typical  position  of  the  bridge- 
action  period  in  relation  to  the  sequence  of  operations  during 
the  construction  of  a  tunnel  excavated  by  blasting  in  certain 
rocks  is  shown  in  Figure  3.  Figures  4  through  6  show  the  re¬ 
lation  between  time,  overbreak  and  rock  load  for  various  rock 
types  and  support  systems.  The  degree  of  overbreak,  depending 
on  the  length  of  the  unsupported  section  in  a  horizontally 
stratified  rock,  is  illustrated  in  Figure  4.  Figure  5  shows 
the  progressive  loosening  in  the  supported  section  with  time 
and  the  effect  of  backpacking  on  the  rock  load  in  blocky  and 
seamy  rocks.  The  relation  between  time,  overbreak  and  rock 
load  is  presented  in  Figure  6. 

The  following  techniques  are  commonly  used  in  excavation  of 
underground  openings: 

Full  Face  Method  -  In  a  full  face  operation,  the  tunnel  is 
blasted  out  full  size  at  each  round.  Small  size  tunnels  al¬ 
ways  are  driven  full  face. 

Heading  and  Bench  Method  -  In  this  method,  illustrated  in  Figure  7, 
a  top  heading  is  carried  ahead  of  the  bench  about  1-1/2  times 
the  length  of  one  round,  usually  about  6  to  16  feet.  The  heading 
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FIGURE  3  -  DIAGRAM  REPRESENTING  OPERATING  CYCLE  FOR 
ONE  ROUND  (AFTER  TERZAGHI ,  1946) 
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OVERBREAK  IN  HORIZONTALLY  STRATIFIED  ROCK 
(AFTER  TERZAGHI ,  1946) 
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FIGURE  5  - 


RELATION  BETWEEN  TIME,  OVERBREAK  AND  ROCK  LOAD  IN 
BLOCKY  AND  SEAMY  ROCK  (AFTER  TERZAGHI ,  1946) 
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FIGURE  6  -  RELATION  BETWEEN  TIME,  OVERBREAK  AND  ROCK  LOAD  (AFTER  TERZAGHI ,  1946) 


FIGURE  7 


-  HEADING  AND  BENCH  METHOD  (AFTER  SZECHY,  1967) 
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has  the  full  width  of  the  tunnel  and  is  carried  down  to  the 
spring  line.  Both  bench  and  heading  are  shot  out  at  each 
round,  the  bench  charges  being  fired  first. 

Top  Heading  Method  -  Instead  of  taking  out  the  bench  along  with 
the  heading,  the  top  heading  may  be  driven  clear  through  as 
one  operation,  followed  later  by  removal  of  the  bench. 

Side  Drift  Method  -  The  side  drift  method,  as  shown  in  Figure  8,  is 
sometimes  employed  in  a  large  size  tunnel  through  bad  rock 
which  requires  support  before  mucking  out. 


Multiple  Drift  Method  -  This  method  is  usually  a  combination  of 
side  drifts  and  top  drift.  It  is  employed  to  get  through  crushed 
rock  in  fault  zones  which  may  behave  like  soil.  A  typical  case 
is  shown  in  Figure  9. 

Excavation  of  a  large-size  tunnel  or  underground  powerplant  some¬ 
times  may  follow  a  complicated  sequence.  Some  typical  excavation 
sequences  commonly  used  are  illustrated  in  Figure  10. 

In  simulating  the  actual  excavation  sequence  by  plane  strain  con¬ 
ditions,  considerable  engineering  judgment  is  required.  Because 
of  the  discontinuities  that  exist  in  rock  masses  and  their  non¬ 
linear  behavior,  the  construction  sequence  can  have  a  significant 
influence  on  the  stresses  and  deformations  in  the  rock  mass. 

SUPPORT  SYSTEMS 

In  order  to  consider  various  support  systems  and  their  mechanisms, 
it  is  first  appropriate  to  review  the  general  concept  of  the 
function  of  a  support  system.  When  a  support  system  is  installed, 
the  stability  problem  becomes  complex  and  involves  rock-support 
interaction.  The  stress  redistribution  and  the  rock-support  inter¬ 
action  will  depend  on  the  flexibility  of  the  support  system.  Deere, 
et  al .  (1969)  have  presented  a  schematic  relationship  shown  in 
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FIGURE  9  -  MULTIPLE  DRIFT  METHOD  (AFTER  PROCTOR  AND  WHITE 
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Figure  11  between  the  deformation  in  the  rock,  the  time  of  in¬ 
stallation,  and  stiffness  of  the  support  system.  This  rela¬ 
tionship  has  been  called  the  ground  reaction  curve.  Certain 
basic  concepts  in  the  functioning  of  a  support  system  can  be 
explained  on  the  basis  of  this  curve,  (i)  If  a  support  system 
is  installed  in  time  before  the  loosening  of  the  rock  occurs 
and  it  is  so  stiff  that  no  yielding  will  occur  in  the  support, 
the  support  system  will  be  subjected  to  the  initial  stresses 
in  the  rock  existing  before  the  excavation  is  made.  In  reality, 
this  case  seldom  occurs,  because  after  the  excavation  and  before 
a  support  system  can  be  installed,  the  surrounding  rock  would 
have  undergone  some  movements  and  redistribution  of  stresses. 

(ii)  For  a  support  installed  at  point  a  and  with  a  stiffness 
represented  by  a-b,  the  opening  will  stabilize  when  the  load 
on  the  support  system  and  the  radial  deformation  are  represented 
by  point  b.  (iii)  A  support  with  the  same  stiffness  but  insuf¬ 
ficient  load  carrying  capacity  will  yield  and  follow  the  path 
a-c-d  without  stabilizing  the  opening.  (iv)  A  support  that  is 
too  flexible  will  follow  the  path  a-e  without  stabilizing  the 
opening.  (v)  A  support  with  a  stiffness  between  a-b  and  a-e 
would  stabilize  the  opening  but  might  undergo  an  intolerable 
deformation.  The  true  shape  of  the  ground  reaction  curve  is 
a  function  of  the  in-situ  properties  of  the  rock,  the  rock- 
support  interaction,  and  the  construction  procedure. 

Mechanisms  of  Ground  Support 

Excavation  of  an  underground  opening  causes  loosening  of  the 
rock  and  a  redistribution  of  stresses  in  the  vicinity  of  the 
opening.  If  the  opening  is  unsupported  and  the  rock  in  the 
immediate  vicinity  of  the  opening  is  in  an  unconi ined  state,  it 
may  be  incapable  of  resisting  the  increased  stresses.  If  this 
is  the  case,  gradual  loosening  of  the  rock  will  occur  leading 
to  a  consequent  redistribution  of  stresses.  The  loosening  zone 
shifts  further  inward  until  the  magnitude  of  the  increased  stress 
decreases  to  a  value  lower  than  the  strength  of  the  rock.  This 
process  of  the  development  of  stress-relieved  zone  around  the 
opening  is  schematically  shown  in  Figure  12. 
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The  purpose  of  the  ground  support  is  to  supply  the  load- carrying 
capacity  that  the  rock  cannot  provide  and,  thus,  help  the  rock 
support  itself.  Because  of  interlocking  and  arching,  a  dis¬ 
continuous  rock  mass  in  which  an  opening  is  excavated  has  a 
certain  strength.  Beyond  a  certain  time  limit  (bridge-action 
period)  and  movement,  the  rock  mass  may  become  unstable.  For 
a  hard  rock,  the  bridge -action  period  may  be  very  short  and 
the  movement  small  when  the  maximum  strength  develops.  The  rock- 
support  system  is  installed  to  provide  sufficient  load-carrying 
capacity  before  the  bridge -action  period  expires  or  excessive 
movement  has  occurred.  Because  each  type  of  support  system 
requires  different  construction  techniques  and  has  different 
load-deformation  characteristics,  the  ground-support  interaction 
and,  thus,  the  mechanisms  of  supporting  the  opening  are  different. 
The  mechanisms  of  the  ground  support  for  steel  sets,  rock  bolts, 
shotcrete  and  concrete  liners  are  briefly  described  in  the 
following  paragraphs. 

Steel  Sets 

Steel  sets  are  commonly  designed  on  the  basis  of  Terzaghi's  rock 
xcad  concepts  and  are  installed  to  support  the  weight  of  a  rock 
mass  that  would  fall  out  if  unsupported. 

A  comprehensive  discussion  of  the  types,  applications,  design 
and  construction  of  steel  sets  is  contained  in  Proctor  and  White 
(1946).  The  following  types  of  steel  support  systems  have  been 
developed  and  used  for  tunnels  in  rock,  Figure  13. 

(a)  continuous  rib  types  (leg  and  rib  in  one  piece) 

(b)  rib  and  post  type  (arches  on  posts) 

(c)  rib  and  post  wall  type  (arches  on  wall  plates) 

(d)  rib  wall  plate  and  post  type  (arches  on  wall  plates 
and  posts) 

(e)  full-circle  rib  type 
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FIGURE  13  -  STEEL  PROPPING  TYPES  (AFTER 
PROCTOR  AND  WHITE,  1946) 
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Every  one  of  the  steel  supports  listed  above  consists  of  two 
or  more  different  elements.  These  elements  include  the  ribs, 
posts,  wall  plates,  bracing  and  lagging,  crown  bars  and  truss 
panels.  The  functions  of  these  elements  are  briefly  described 
in  the  following  paragraphs . 

The  rib,  rib  and  post  or  rib,  post  and  invert  strut  form  a 
frame  placed  at  right  angles  to  the  axis  of  the  tunnel.  The 
frames  serve  to  receive  the  load  and  to  transmit  it  to  footings 
or  to  carry  it  by  ring  action  as  in  full-circle  ribs. 

The  wall  plates  serve  as  sills  for  the  ribs.  They  transmit  the 
load  from  the  ribs  through  blocks  or  posts  onto  the  rock.  The 
lagging  bridges  the  space  between  the  ribs  and  is  in  direct 
contact  with  the  rock.  Thus,  it  transmits  rock  load  to  the  ribs. 
The  bracing  is  required  to  prevent  buckling  or  shifting  of  ribs 
or  posts. 

The  crown  bars  are  located  in  the  crown  of  the  tunnel,  parallel 
to  the  tunnel  axis.  After  blasting  and  ventilating,  they  can 
rapidly  be  slipped  forward,  to  support  the  newly  exposed  roof 
by  cantilever  action  beyond  the  ribs.  They  may  also  be  used 
to  support  the  roof  temporarily  while  the  bench  is  being  taken  out. 

The  truss  panels  serve  a  function  similar  to  the  latter  function 
of  the  crown  bars.  They  are  located  at  the  spring  line  and 
constitute  a  temporary  support  for  the  ribs  while  taking  out 
the  bench,  and  are  to  be  replaced  by  posts  in  the  final  stage 
of  erection. 

The  steel  sets  are  generally  installed  several  feet  behind  the 
face  of  a  tunnel  and  are  spaced  from  two  to  eight  feet  on  centers 
depending  on  the  type  of  ribs  and  rock  conditions.  Because  of 
construction  techniques  and  structural  flexibility,  a  steel  sup¬ 
port,  in  general,  involves  more  rock  loosening  than  rock  bolting 
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and  shotcreting.  However,  most  supports  are  installed  before 
the  rock  in  the  roof  loosens  all  the  way  back  to  a  stable  arch 
i.e.,  before  the  bridge-action  period  expires.  The  load  actually 
carried  by  the  supports  depends  on  the  tine  the  supports  are  in¬ 
stalled  and  the  amount  of  additional  loosening  that  takes  place 
after  installation  of  the  supports.  This  additional  loosening 
depends  on  the  type  and  quality  of  the  support.  Figure  14  shows 
that  a  typical  support  load  varies  with  the  rigidity  of  the  sup¬ 
port  itself.  Determination  of  support  loads  and,  thus,  the 
stability  of  the  rock  support  system  are  very  complicated  because 
of  the  difficulty  of  modelling  rock-support  interaction. 

Rock  Bolts 

Unlike  steel  sets,  rock  bolts  and  shotcrete  are  installed  to 
help  the  rock  support  itself.  Rock  bolts  can  be  installed  at 
the  working  face  directly  after  blasting  and  within  a  short 
time  can  exert  a  stabilizing  pressure  on  the  loosened  rock 
surface.  This  early  installation  prevents  the  gradual  relaxa¬ 
tion  or  loosening  of  the  decompression  zone  behind  the  new  rock 
face. 

The  essential  components  of  a  rock  bolt  are  the  shank,  the 
anchorage  and  the  bearing  plate  assembly.  Rock  bolts  are  gen¬ 
erally  classified  according  to  the  type  of  anchor  as  sliding 
wedge  and  expansion  shell.  The  process  of  rock  bolting  is 
to  insert  a  shank  in  a  hole  drilled  in  rock  and  anchor  the  bolt 
in  the  bottom  of  the  hole.  The  bolt  is  placed  in  tension  between 
the  anchor  and  the  plate,  thereby  exerting  a  compressive  force 
on  the  rock.  The  rock  bolt  is  different  from  anchor  bars 
which  are  grouted  into,  holes  in  rock,  but  which  are  not  pre¬ 
stressed. 


The  possible  mechanisms  of  a  rock  bolt  system  in  maintaining 
stability  of  an  opening  can  be  represented  by  the  following 
two  concepts. 
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FIGURE  14  -  EFFECT  OF  YIELDING  SUPPORT  ON  SUPPORT 
LOAD  (AFTER  TAKAHASHI ,  1966) 
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(a)  Rock  Support  Concept  -  Rock  bolts  are  used  to  secure  loose 
joint  blocks  to  solid  ground  t<  prevent  the  blocks  from  falling 
from  the  roof  of  the  tunnel  or  spalling  along  the  sidewall. 

Rock  bolts  may  be  placed  in  a  horizontally  stratified  rock  and 
spaced  so  that  their  combined  strength  is  equal  to  the  dead 
weight  of  the  strata  that  would  tend  to  fall.  This  concept 

of  rock  supporting  may  be  called  suspension.  This  type  of 
support  may  be  achieved  by  ungrouted,  untensioned  rock  anchors 
or  continuously  grouted,  untensioned  reinforcing  rods. 

(b)  Rock  Reinforcement  Concept  -  In  this  case,  the  purpose  of 
the  rock  bolt  is  to  confine  the  rock  so  that  it  will  become  a 
part  of  the  total  structure  supporting  the  opening.  This  con¬ 
cept  has  been  used  to  install  i.he  bolts  in  stratified  rocks 

to  bind  the  various  strata  together  to  act  as  a  single  beam 
capable  of  supporting  itself  and  ".he  overlying  rock  across  the 
opening.  In  this  case,  the  rock  bolts  are  assumed  to  increase 
the  friction  and,  thereby,  prevent  slippage  between  the  beds, 
hence,  forcing  them  to  act  as  a  beam.  Extensive  research  has 
been  done  by  Panek  (1956a,  1956b,  1964)  for  design  of  bolting 

for  a  stratified  roof.  A  typical  bolting  system  is  illustrated 
in  Figure  15. 

In  the  case  of  a  fractured,  jointed  rock,  when  used  in  appro¬ 
priate  patterns,  the  bolts  create  a  principal  compressive  stress 
normal  to  the  free  surface  of  the  opening;  a.:d  this,  in  turn, 
creates  a  zone  of  rock  which  acts  as  a  structural  membrane  capable 
of  providing  its  own  support  (Lang  1961).  A  schematic  diagram 
illustrating  the  action  of  rock  bolts  on  the  rock  around  an  exca¬ 
vation  is  shown  in  Figure  16.  Figure  17  shows  a  typical  pattern 
for  rock  bolts  and  its  effect  on  the  zone  of  the  stressed  mem¬ 
brane  surrounding  an  opening. 
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FIGURE  IS  -  TYPICAL  ROCK  BOLTING  FOR  A  STRATIFIED  ROOF 
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FIGURE  17 
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Shotcrete 

Shotcrete  may  be  defined  as  follows  (Lorman  1968)  : 

Mortar  or  concrete  that  has  been  conveyed  (by  regu¬ 
lated  air  pressure  or  by  positive  displacement  pump 
or  screw)  through  a  hose  and  discharged  through  a 
nozzle  (usually  hand  held)  at  high  velocity  into  a 
suitably  prepared  inflexible  surface;  the  product, 
which  has  been  premixed  either  dry  (water  added  at 
the  nozzle)  or  wet  (water  added  prior  to  entry  into 
the  hose)  ,  is  sufficiently  stiff  at  impaction  to 
support  itself  without  sagging  from  an  overhead 
surface  or  sloughing  from  a  vertical  surface. 

Basically,  fine  shotcrete  is  mortar,  and  coarse  aggregate  shot¬ 
crete  is  concrete.  Engineering  properties  of  coarse  aggregate 
shotcrete  at  age  28  days  are  similar  to  concrete  (Lorman  1968). 

The  purpose  of  using  shotcrete  for  ground  support  is  to  main¬ 
tain  the  equilibrium  and  self-supporting  capabilities  of  the 
rock  surrounding  the  opening.  Deere,  et  al.  (1969)  present  a 
comprehensive  discussion  on  the  use  of  shotcrete  for  ground 
support.  A  layer  of  shotcrete  is  usually  applied  to  a  tunnel 
wall  shortly  after  blasting.  It  provides  continuous  resistance 
to  tunnel  wall  deformations.  Several  qualitative  hypotheses  for 
the  mechanism  of  shotcreting  support  in  a  rock  excavation  have 
been  suggested  e.g.,  Alberta  (1963,  1965): 

(a)  Shotcrete  is  forced  into  open  joints,  fissures,  and 
seams  and,  in  this  way,  serves  the  same  binding  function 
as  mortar  in  a  stone  wall. 

(b)  Shotcrete  hinders  water  seepage  from  joints  and  seams 
in  the  rock  and,  thereby,  prevents  piping  of  joint 
filling  materials  and  air  and  water  deterioration  of 
the  rock. 
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(O  Shotcrete's  adhesion  to  the  rock  surface  and  its  own 
shear  strength  provide  a  considerable  resistance 
to  the  fall  of  loose  rock  blocks  from  the  roof  of 
a  tunnel. 

(d)  A  thicker  shotcrete  layer  (15  to  25  centimeters) 

provides  structural  support,  either  as  a  closed  ring 
or  a  fixed  arch-type  member. 

The  loads  on  a  shotcrete  liner  are  a  function  of  the  type  and 
condition  of  the  rock,  the  time  of  installation,  rigidity  of 
the  support,  and  the  interaction  between  the  rock  and  the  support 


Concrete  Lining 

Precast-concrete  segments  are  commonly  used  for  the  support  tun¬ 
nels  in  soft  ground.  Except  in  a  pressure  tunnel,  a  concrete 
lining  is  used  as  a  second  or  permanent  liner  of  a  tunnel  in 
hard  rock  either  to  protect  the  first  or  temporary  liner  e.g., 
steel  sets,  rock  bolts  or  shotcrete  or  to  meet  a  secondary 
requirement  such  as  improving  the  aesthetics,  the  acoustics 
or  the  aerodynamic  flow  properties  of  the  tunnel.  In  this  case, 
only  the  first  liner  is  designed  to  support  the  total  expected 
load.  If  a  concrete  lining  is  expected  to  carry  some  rock  loads, 
its  idealization  is  similar  to  that  of  shotcrete  linings. 


Current  Design  Techniques  for  Ground  Support  Systems 
The  purpose  of  reviewing  the  current  design  techniques  is  to  es¬ 
tablish  how  "round  support  systems  are  currently  being  modelled. 
Szechy  (1967)  and  Deere,  et  al .  (1969)  discuss  current  design 
techniques  for  ground  support  systems.  The  current  design  tech¬ 
niques  may  be  summarized  as  follows: 


(1)  Analysis  of  Unlined  Openings  -  In  this  approach,  the 
rock  is  considered  as  a  continuum  and  the  stresses  and  deformation 
around  an  unlined  opening  are  investigated  on  the  basis  of  an 
elastic  or  elastic-plastic  analysis.  Based  on  these  analyses,  the 
rock  pressure  on  the  support  system  is  estimated. 
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(2)  Rock  Load  Concept  -  The  rock  mass  that  is  considered 
likely  to  fall  if  the  opening  is  unsupported  is  determined. 

The  weight  of  this  rock  mass  is  assumed  to  be  the  load  that  is 
tc  be  carried  by  the  support  system.  Basically,  this  is  an 
empirical  approach  and  does  not  consider  rock  support  inter¬ 
action.  A  typical  example  of  this  is  Terzaghi's  rock  load 
theory . 

(3)  Support-Rock  Interaction  -  Methods  of  analysis  to 
account  for  effects  of  support-rock  interaction  on  tunnel 
linings  have  been  reported  by  Szechy  (1967).  Recently,  Dixon 
(1971)  has  presented  a  similar  technique  to  consider  support- 
rock  interaction  in  the  analysis  of  tunnel  support  systems. 

This  approach  idealizes  the  rock  mass  with  the  Winkler-type 
foundation.  Because  of  the  limitations  of  the  Winkler-type 
foundation  in  modellinj  the  behavior  of  rock  masses,  this  model 
is  not  considered  to  be  realistic. 

Current  methods  of  tunnel  lining  and  other  support  systems 
design  tend  to  consider  the  estimate  of  rock  load  and  the 
design  of  the  structural  lining  as  an  independent  process. 

The  current  design  methods  for  steel  sets,  rock  bolts  and  shot- 
crete  lining  are  briefly  described  in  the  following  paragraphs. 

Steel  Sets 

Selection  of  the  steel  set  support  system  depends  on  the  fol¬ 
lowing  factors:  (1)  method  of  excavation,  (2)  rock  behavior, 
and  (3)  size  and  shape  of  the  tunnel  cross-section.  Design 
of  steel  sets  is  generally  based  on  Terzaghi's  rock  load  theory. 
Terzaghi  (1946)  defines  rock  load  as  the  height  of  the  mass  of 
rock  which  tends  to  drop  out  of  the  roof  of  a  tunnel.  The 
magnitude  of' the  rock  load  depends  on  the  rock  quality.  Based 
on  his  experience  on  wood-blocked  steel  sets  in  tunnels  exca¬ 
vated  by  conventional  drilling  and  blasting  techniques,  Terzaghi 
(1946)  established  certain  recommended  design  load  ranges  on  the 
lining  structure  depending  on  certain  rock  classes.  These  are 
summarized  in  Table  1. 
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Rock  Bolts 

A  rock  bolt  support  system  is  generally  selected  based  on  a 
consideration  of  the  possible  modes  or  mechanisms  of  failure 
of  the  rock  around  the  opening.  At  present,  there  is  no  gen¬ 
erally  accepted  design  method. 

Panek  (1955,  1956a,  1956b,  1956c,  1962a,  1962b,  1964)  has  con¬ 
ducted  an  extensive  study  on  design  of  bolting  systems  to  rein¬ 
force  laminated  roofs.  Figure  18  shows  a  design  chart  developed 
by  Panek  (1956b)  for  the  reinforcement  of  a  laminated  horizontal 
roof  on  the  basis  of  the  development  of  friction  between  the 
layers  resulting  from  the  clamping  action  of  tensioned  rock  bolts. 
The  following  factors  are  considered  in  the  development  of  this 
design  chart:  (a)  average  bed  thickness  of  mined  roof,  t  ; 

(b)  length  of  bolts,  h;  (c)  bolt  tension  and  anchorage  capacity, 

P;  (d)  number  of  bolts  per  set  across  the  opening,  N;  (e)  spacing 
of  sets,  b;  (f)  width  of  opening,  L;  (g)  reinforcement  factor, 

RFt,  or  percent  decrease  in  strata  bending,  ;  and  (h)  coef¬ 

ficient  of  friction  along  planes  of  stratification,  F. 

Recently,  McNiven  and  Ewoldsen  (1969),  Ewoldsen  and  McNiven  (1969) 
and  Goodman  and  Ewoldsen  (1970)  have  attempted  to  analyze  and  de¬ 
sign  a  rock  bolt  support  system  on  a  sound  theoretical  basis. 

This  approach  first  computes  the  stress  distribution  in  a  rock 
mass  surrounding  an  opening  due  to  an  installation  of  rock  bolt 
reinforcement.  In  the  stress  computation,  it  is  assumed  that  the 
rock  mass  is  a  linear  elastic  continuum.  Stability  along  certain 
prevalent  joint  sets  is  examined  by  comparing  shear  strength  and 
shear  stress  along  the  joint  planes.  Thus,  an  optimal  design  of 
the  rock  bolt  system  is  achieved  by  an  iterative  process. 

Shotcrete 

At  the  present  time,  there  is  no  rational  design  procedure  for 
a  shotcrete  lining.  Selection  of  the  shotcrete  support  is  largely 
based  on  experience  and  is  a  trial  and  error  process.  From  the 
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accumulated  experience  with  the  use  of  shotcrete  for  under¬ 
ground  support,  some  empirical  design  guides  have  been  estab¬ 
lished  for  support  selection.  An  example  of  these  design 
guides  is  presented  by  Linden  (1963),  Figure  19.  The  design 
should  be  modified  by  local  experience  and  geologic  conditions. 
Deere  et  al .  (1969)  present  a  design  approach  based  on  struc¬ 
tural  consideration.  This  approach  assumes  that  the  liner  is 
subjected  to  a  uniform  rock  load.  The  desired  lining  thick¬ 
ness  is  adjusted  to  bring  the  combined  thrust  and  bending 
stresses  below  the  allowable  values.  Similar  to  the  other 
rock  support  design,  this  approach  does  not  directly  consider 
the  support-rock  interaction. 

SUMMARY  -  ESSENTIAL  FEATURES  TO  BE  MODELLED 

The  purpose  of  this  review  was  to  establish  the  essential  fea¬ 
tures  in  the  excavation  techniques,  the  construction  and  exca¬ 
vation  sequence  and  the  support  system  that  have  to  be  modelled. 

It  is,  therefore,  appropriate  that  this  summary  identifies  these 
essential  features. 

Excavation  Techniques 

Excavation  of  an  opening  creates  some  disturbance  in  a  rock  mass 
surrounding  the  opening.  Depending  upon  the  type  of  excavation 
methods,  e.g.,  drilling  and  blasting,  smooth  wall  blasting  or 
boring  machine,  rock  conditions  and  time  of  installation  of 
support  systems,  zones  of  loosening  and  fracturing  and  depths 
of  overbreak  around  the  opening  will  be  different.  Generally, 
the  drilling  and  blasting  method  causes  more  disturbance  than 
other  types  of  excavation.  It  is,  therefore,  necessary  to  be 

able  to  model  the  loosened  and  fractured  rock  in  the  vicinity 
of  the  opening. 

Construction  and  Excavation  Sequence 

The  time  lag  that  occurs  in  installing  any  supports  after  the 
rock  face  has  been  exposed  should  be  considered.  The  excavation 
sequence  in  which  the  excavation  has  many  intermediate  shapes 
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NOTES: 

(A)  No  support  Is  required  (Sound  rock). 

(B>  ^r?a+'l[!IV  r0,°k.  b°'ts  °"  ’-5  -  2m  spac'"9  »lth  wire  net, 

occasionally  reinforcement  needed  only  In  arch.  (Sound, 

stratified  or  schistose  rock,  unstable  after  long  time). 

<C1  Tk.  b°'tS  ’  -  1-5"’  ppan'ng  wire  net, 

occasionally  reinforcement  needed  only  In  arch.  (Sound 
s  ratified  or  schistose  rock,  unstable  after  short  time). 

(D)  Shotcrete  with  wire  net;  alternatively  rock  bolts  on  0.7  -  lm 
spacing  with  wire  net  and  3  cm  shotcrete.  (Stronqly 
fissured  rock,  broken). 

(E)  !f?ICTe+%W,+h  r'le  ne+;  rock  bo,+s  on  °*5  '  1-2m  spacing 

s  th  3  5  cm  shotcrete  sometimes  suitable;  alternatively 

steel  arches  with  lagging.  (Fully  mechanically  disturbed 
rock,  very  broken;  gravel  and  sand). 

(F)  Shotcrete  with  wire  net  and  steel  arches;  alternatively 

(P^o!IndcS  +  eH  1  ar^hes  w,+h  1 agg  I  ng  and  subsequent  shotcrete. 
(Pseudo-sound  rock,  properties  change  with  1 1  me;  squeez I ng ) . 

(G)  Shotcrete  and  strutted  steel  arches  with  lagging.  (Heavy 

squeezing,  swelling  rock,  slit,  clay).  99  Y 


FIGURE  19 


ROCK  REINFORCEMENT  WITH  SHOTCRETE  (AFTER  LINDER,  1963) 
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before  reaching  the  final  shape  should  be  considered.  An  inter¬ 
mediate  shape  may  be  more  critical  from  a  stability  standpoint, 
and  the  stability  of  the  final  excavation  may  depend  on  the 
excavation  sequence. 

Structural  Support  Schemes 

I*  Geometry  and  Rigidity  of  a  Support  System 

(a)  Steel  sets  are  generally  installed  as  required  by 
local  rock  conditions  at  specific  spacings  which  may 
vary  along  the  length  of  a  tunnel.  The  spatial  dis¬ 
tribution  and  rigidity  of  steel  sets  along  the  length 
of  the  tunnel  should  be  approximated  in  the  computa¬ 
tional  model. 

(b)  A  tensioned  rock  bolt  exerts  some  localized  three- 
dimensional  effects  on  the  stress-deformation  of  the 
rock  mass  in  the  vicinity  of  the  rock  bolt.  Effects 
of  bolt  tension  on  the  stress -deformation  of  the  rock 
mass  should  be  modelled.  The  presence  of  rock  bolts 
and  grouted  rock  bolts  may  increase  the  stiffness  of 
the  rock  mass  after  support  installation. 

(c)  Shotcrete  or  concrete  linings  are  generally  continuous 
along  the  tunnel  axis.  Their  geometry  and  the  struc¬ 
tural  support  they  provide  must  be  modelled. 

IL  Support-Rock  Connection  (Interaction  Effects) 

(a)  Steel  Sets  -  Blockings  which  transfer  loads  between  the 
rock  and  the  support  are  placed  at  certain  convenient 
discrete  points  on  the  steel  set.  The  spatial  distribu¬ 
tion  of  blockings  may  affect  the  distribution  of  the 
bending  and  axial  stresses  in  the  steel  set.  It  is 
necessary  to  model  the  blockings  in  the  analysis. 
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(b)  Rock  Bolts  -  Bearing  plates,  anchorages  and  grouting 
along  the  rock  bolt  are  the  support-rock  connections 
which  may  require  consideration  in  the  idealization 
of  rock  bolt  systems.  Goodman  (1966)  made  a  detailed 
study  and  concluded  that  effects  of  bearing  plates 
are  of  little  importance  with  respect  to  stresses 
more  than  two  feet  away  from  the  free  surface.  This 
indicates  that  no  appreciable  error  will  result  if 
the  loading  through  bearing  plates  is  approximated 

by  point  loads.  This  conclusion  may  also  anply  to 
anchorages.  The  grouting  may  affect  the  stiffness  of 
the  rock  mass  in  the  vicinity  of  the  rock  bolt, 

(c)  Shotcrete  or  Concrete  Linings  -  Grouting  or  back 
packing  behind  a  concrete  lining  should  be  modelled 
in  analysis. 

DEVELOPMENT  OF  COMPUTATIONAL  MODELS 

The  computational  models  have  to  be  formulated  within  the  con¬ 
text  of  the  finite  element  program  developed  under  Contract 
No.  H0210046 .  It  is,  therefore,  appropriate  to  first  describe 
briefly  the  existing  program  and  its  limitations  in  terms  of 
modelling  the  excavation  technique,  the  construction  and  ex¬ 
cavation  sequence,  and  the  support  systems. 

BRIEF  DESCRIPTION  OF  EXISTING  FINITE  ELEMENT  PROCRAM 
The  existing  finite  element  computer  program  which  was  developed 
under  Contract  No.  H0210046  and  which  will  be  modified  for  the 
present  project  has  capabilities  to  perform  the  following  analy¬ 
ses  under  plane  strain  conditions  in  addition  to  a  linear  elastic 
analysis . 

1.  No  Tension  Analysis  -  The  program  is  capable  of  perform¬ 
ing  a  no  tension  analysis  similar  to  that  developed  by 
Zienkiewicz,  et  al.  (1968)  and  modified  by  Chang  and  Nair 
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(1972).  A  rock  may  be  assumed  to  be  capable  of  sustaining 
a  limited  amount  or  no  tensile  stress.  This  condition  may 
occur  due  to  the  presence  of  numerous  cracks  and  fissures. 

2.  Joint  Perturbation  Analysis  -  A  one-dimensional  joint 

formulation  similar  to  that  developed  by  Goodman,  Taylor, 
and  Brekke  (1968)  was  used  in  the  program.  The  joint 
is  assumed  incapable  of  resisting  tensile  normal  stress 
and  has  a  certain  shear  strength  under  a  compressive 
normal  stress.  The  shear  strength  of  a  joint  is  expressed 
by : 

xr  *  C  +  o.,  tan  d> 
f  N  Te 


where : 

C  ■  cohesion  along  the  joint, 

$  *  effective  friction  angle  of  the  joint 

(Patton  1966)  , 

on  »  compressive  normal  stress  across  the  joint. 

3.  Elasto-Plastic  Analysis  -  In  the  elasto-plastic  analysis, 
the  rock  is  assumed  to  be  an  elastic  perfectly  plastic 
material.  The  yield  function  utilized  is  a  generalization 
of  the  Mohr-Coulomb  hypothesis  suggested  by  Drucker  and 
Prager  (1952)  and  is  represented  by  the  following  equation: 

f  =  otl^  +  =  k 


where : 

a  and  k  =  material  constants, 

1^  *  first  stress  invariant, 

J  -  second  invariant  of  stress  deviation. 
2 

The  above-mentioned  analyses  may  be  performed  concurrently  de¬ 
pending  on  the  idealization  of  the  actual  structure. 
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LIMITATIONS  OF  EXISTING  PROGRAM 

The  limitations  of  the  program  in  modelling  excavation  tech¬ 
niques,  construction  and  excavation  sequence  and  support 
systems  can  be  divided  into  two  broad  categories:  (i)  geometry, 
and  (ii)  material  properties. 

Geometry 

The  existing  program  is  limited  to  plane  strain  problems;  there¬ 
fore,  any  computational  model  has  to  develop  idealizations  which 
are  compatible  with  the  plane  strain  assumption.  The  following 
paragraphs  discuss  briefly  how  this  assumption  influences  the 
development  of  computational  models  for  excavation  techniques, 
construction  and  excavation  sequence  and  support  systems. 

Excavation  Techniques 

The  modelling  of  the  effects  of  excavation  techniques  is  not 
influenced  by  the  geometrical  limitations  except  that  the 
modelling  is  only  valid  at  a  sufficient  distance  from  the  actual 
excavation  face.  Therefore,  the  immediate  effects  of  the  utili¬ 
zation  of  a  particular  excavation  technique  cannot  be  modelled. 

Construction  and  Excavation  Sequence 

The  construction  and  excavation  sequence  refers  to  the  shape  of 
the  openings  at  various  times  and  the  installation  of  the  support 
systems  at  various  times.  Again,  the  major  limitation  is  that 
the  sequence  near  the  face  of  the  excavation  cannot  be  modelled. 

Support  Systems 

In  addition  to  the  limitation  of  modelling  the  system  at  a 
sufficient  distance  from  the  excavation  face,  there  is  the  addi¬ 
tional  problem  that  support  systems  are  in  general  not  continuous. 
Rock  supports  using  shotcrete  or  concrete  lining  may  be  modelled 
as  continuous  supports  along  the  axis  of  the  opening.  However, 
support  systems  utilizing  rock  bolts  or  steel  sets  would  have 
to  be  modelled  on  the  basis  of  various  idealizations  to  fit  them 
within  the  framework  of  a  plane  strain  analysis. 
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Material  Properties 

The  existing  program  is  limited  to  materials  with  time- independent 
properties.  The  influence  of  this  limitation  on  the  development 
of  a  computational  model  arises  from  the  fact  that  the  excavation, 
construction  sequence  and  support  system  installation  occurs 
over  a  finite  time  interval.  Any  time-dependent  material  response 
that  would  occur  over  this  period  cannot  be  directly  accounted  for. 

GENERAL  MODELLING  CONCEPTS 
Excavation  Techniques 

It  has  been  discussed  in  the  previous  sections  that  excavation 
of  an  opening  creates  some  disturbance  in  a  rock  mass  surrounding 
the  opening.  Depending  upon  the  excavation  technique,  e.g., 
drilling  and  blasting,  smooth  wall  blasting  or  boring  machine, 
rock  conditions  and  time  of  installation  of  support  systems,  the 
zones  of  loosening  and  fracturing  and  depths  of  overbreak  around 
the  opening  will  be  different.  Zones  of  disturbance  may  be  esti¬ 
mated  on  the  basis  of  experience  at  locations  with  similar  geologic 
conditions  and  excavation  methods  or  determined  by  seismic  refrac¬ 
tion  surveys  in  the  field. 

The  essential  features  that  have  to  be  modelled  in  simulating 
the  effects  of  excavation  techniques  are  the  following: 

(i)  The  stress  free  excavation  face. 

Dunlop,  Duncan  and  Seed  (1968),  Chang  and  Duncan  (1970), 
Clough  and  Duncan  (1969),  and  Chang  and  Nair  (1972) 
have  shown  that  excavation  may  be  simulated  in  the 
finite  element  method  by  applying  stresses  to  the 
boundary  exposed  by  excavation  so  that  there  is  no 
resultant  stress  on  the  excavation  face.  A  similar 
technique  will  be  used  in  this  study. 
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(ii)  The  disturbed  zone  in  the  vicinity  of  the  excavation. 
This  zone  can  be  modelled  by  assuming  a  lower  modulus 
for  the  material  in  the  zone  or  by  assuming  that  the 
material  is  incapable  of  carrying  any  tensile  stress. 
Both  these  techniques  will  be  utilized  in  this  study. 

Construction  and  Excavation  Sequences 

The  essential  features  to  be  modelled  and  the  basic  concepts  in 
modelling  them  are  described  below: 

(i)  The  time  sequence  of  construction,  including  instal¬ 
lation  of  supports. 

Because  of  the  limitation  that  only  time- independent 
material  properties  can  be  included  in  the  program, 
the  time  sequence  of  construction  will  be  modelled 
in  accordance  with  the  following  two  stage  analyses. 

(a)  An  initial  analysis  prior  to  any  support  instal¬ 
lation  will  be  conducted. 

(b)  A  subsequent  analysis  will  be  conducted  with 
the  support  system  installation  treating  the 
results  of  the  analysis  in  (a)  as  the  initial 
condition.  In  a  practical  problem,  it  will  be 
necessary  to  brrcket  possible  initial  conditions. 

(ii)  The  excavation  sequence. 

The  opening  goes  through  many  shapes  before  reaching 
the  final  shape.  If  the  problem  could  be  treated  as 
linear  elastic,  the  final  stress  distribution  would 
be  independent  of  the  excavation  sequence;  for  non¬ 
linear  problems,  it  is  necessary  to  consider  the 
sequence.  Excavation  sequence  will  be  simulated  by 
removing  those  elements  that  will  be  excavated  and 
ensuring  that  the  excavation  face  is  stress  free. 
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Support  S/stems 

This  development  is  bas'd  on  considering  the  interaction  of 
the  support  and  the  surrounding  rock  mass.  The  three  basic 
support  systems  considered  in  this  study,  (i)  steel  sets, 

(ii)  rock  bolts,  and  (iii)  concrete  and  shotcrete  liners, 
are  discussed  separately. 

(i)  Steel  Sets  -  A  series  of  beam  elements  which  are 

capable  of  carrying  both  bending  and  axial  stresses 
may  be  used  to  idealize  a  steel  set.  The  support- 
rock  connections,  i.e.,  blockings,  may  be  idealized 
by  a  one-dimensional  or  a  regular  element  if  the 
connections  are  to  transfer  axial  forces  or  both 
axial  and  shear  forces.  As  described  previously, 
this  study  is  confined  to  analysis  of  plane  problems; 
and,  thus,  both  the  opening  and  its  support  system 
are  to  be  idealized  as  plane  strain  problems.  It 
is  proposed  that  the  sets  along  some  length  of  the 
tunnel  be  idealized  by  a  continuous  support  with  a 
section  modulus  equivalent  to  the  average  section 
modulus  of  the  sets.  The  blockings  are  assumed  to 
be  continuous  along  the  length  of  the  tunnel.  The 
idealization  of  the  steel  sets  is  illustrated  in 
Figure  20. 


(ii)  Rock  Bolts  -  Because  of  the  difficulties  associated 
with  analysis  of  a  rock  bolt  system,  i.e.,  the 
three-dimensional  aspect,  the  interaction  of  each 
rock  bolt  with  the  rock  will  not  be  modelled  in  this 
study.  The  following  approximations  are  proposed  to 
idealize  the  rock  bolt  support  system: 

(a)  To  increase  the  stiffness  of  the  rock  mass  in 

the  immediate  vicinity  of  rock  bolts  to  account 

for  the  presence  of  rock  bolts  and  grouted  rock 
bolts . 
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(b)  To  approximate  the  effects  of  tensioned  bolts 
on  the  rock  mass  by  applying  a  set  of  opposite 
concentrated  loads  at  the  anchor  and  bearing 
plate.  Each  concentrated  load  is  considered  to 
be  an  equivalent  line  load  along  the  tunnel  axis 
to  represent  a  row  of  rock  bolts.  The  magnitude 
of  the  line  load  is  determined  by  the  bolt  tension 
and  the  spacing  of  bolts.  This  idealization  is 
illustrated  in  Figure  21. 

(c)  Untensioned  grouted  rock  bolts  may  be  idealized 
as  one-dimensional  bar  elements  with  material 
properties  similar  to  those  of  rock  bolts. 

(iii)  Shotcrete  or  Concrete  Linings  -  Shoirrete  or  concrete 
linings  may  be  idealized  as  a  plane  strain  structure 
as  shown  in  Figure  22.  Grouting  or  back  packing  behind 
the  lining  may  be  modelled  in  the  analysis  with  mate¬ 
rials  with  different  stiffness. 

MODIFICATIONS  OF  THE  EXISTING  FINITE  ELEMENT  COMPUTER  PROGRAM 
It  has  been  indicated  that  the  computer  program  developed  under 
Contract  No.  H0210048  is  to  be  modified  for  the  present  contract  to 
include  the  capability  for  modelling  and  analyzing  structural  sup¬ 
port  schemes  used  in  the  construction  and  design  of  tunnels,  and 
excavation  techniques  and  construction  sequences  used  in  underground 
construction.  Before  modifications  were  made  for  the  present  con¬ 
tract,  two  improvements  were  incorporated  into  the  program.  These 
were  (i)  utilization  of  elasto-plastic  stress- strain  relationship 
to  compute  the  axial  stress,  and  (ii)  updating  the  element  stiffness 
at  each  load  increment  to  improve  convergence. 

Computation  of  Axial  Stress 

Pariseau  (1972),  in  discussing  the  paper  by  Chang,  Nair  and  Kar- 
woski  (1972),  indicates  that  the  equation  employed  to  compute  the 
axial  stress  for  an  elasto-plastic  analysis  is  only  valid  for  a 
rigid,  perfectly  plastic  material.  Re-examination  of  the  formulation 
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of  the  analysis  appears  to  indicate  that  the  results  of  an  elasto- 
plastic  analysis  would  be  correct  only  if  loading  is  applied  in 
small  increments.  For  each  small  load  increment,  each  element 
is  checked  to  determine  if  the  element  behaves  elastically  or 
plastically.  Under  the  plane  strain  conditions  for  which  e  =0, 
the  increment  of  the  axial  stress  Acrzz  is  computed  depending  on 
the  condition  whether  the  element  behaves  elastically  or  plas¬ 
tically.  When  an  element  goes  from  an  elastic  to  a  plastic  state 
in  an  increment,  an  intermediate  stress,  when  yielding  commences 
is  found  by  interpolation.  In  this  manner,  either  the  material 
is  acting  elastically  or  plastically  at  any  one  time,  and  the 
axial  stress  is  computed  accordingly.  Therefore,  the  axial 
stress  ozz  i3  correctly  calculated  at  every  step  of  the  analysis 
according  to  the  assumptions  made  in  the  analysis.  A  modification 
which  is  described  in  the  following  section  has  been  made  in  the 
program  to  compute  the  axial  stress  azz  correctly  without  any 
restriction  on  the  magnitude  of  load  increments.  The  modifi¬ 
cation  is  described  in  the  subsequent  section. 


Incremental  Stress -Strain  Relations 

In  the  elastic  range,  the  strains  are  related  to  the  stresses 
by  the  generalized  Hooke's  law  under  plane  strain  conditions  as 
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and  E  is  the  elastic  modulus  and  v  the  Poisson's  ratio  for  the 
linear  isotropic  elastic  material. 

In  the  plastic  range,  it  is  assumed  that  the  material  behaves 
perfectly  plastically  with  ".he  yield  criteria  represented  by 

f  *  al i  +  /J7  *  k 

f  =  0 

where:  a,  k  *  material  constants 

Ii  ■  first  stress  invariant 
J2  ■  second  invariant  of  stress  deviation 

The  total  strain  rate  e„  may  be  expressed  by 


(3) 

(4) 


E 


ij 


+  £ij 


(P) 


(5) 


where  the  elastic  strain  rate  may  be  computed  from  the  generalized 
Hooke's  law  as: 


ij 
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and  the  plastic  strain  rate  may  be  computed  from  the  associated 
flow  rule  as : 


X 


where : 


a  scalar  positive  function  of  a. .  and  e.. 
Kronecker's  delta  1J 
stress  deviator  tensor 


(7) 
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Utilizing  the  preceding  relations,  Reyes  (1966)  developed 
incremental  stress-strain  relations  for  an  elastic,  perfectly 
plastic  material.  These  relations  can  be  expressed  by: 


for  plane  strain  cases: 
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Equation  (8)  may  be  expressed  in  a  matrix  form  as: 
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The  strain-stress  relation  described  by  equations  (1)  or  (9) 
has  been  used  in  the  projram  to  compute  the  axial  stress  and 
to  form  the  stiffness  depending  whether  the  element  is  in  the 
elastic  or  plastic  range. 


Updating  the  Element  Stiffnesses 

It  has  been  experienced  that  in  an  elasto-plastic  analyses,  if 
a  constant  initial  stiffness  is  used  in  the  initial  stress 
approach,  the  computing  time  is  greatly  reduced  for  each  iteration. 
However,  it  has  been  shown  that  in  this  case,  the  solution  con¬ 
vergence  is  very  slow.  The  program  has  been  modified  to  improve 
the  rate  of  the  solution  convergence.  An  additional  option  has 
been  added  to  the  program  so  that  the  stiffness  of  the  system 
may  be  updated  at  each  new  increment  of  load.  It  has  been  found 
that  by  doing  this,  generally  2  to  4  iterations  are  sufficient 
at  each  load  increment  to  ensure  that  the  equilibrium  conditions 
are  satisfied. 

The  technique  for  performing  nonlinear  analysis  with  the  above 
modification  is  illustrated  in  Figure  23.  This  technique  may 
be  summarized  as  follows: 

(1)  For  each  increment  of  load,  an  initial  elastic  stiff¬ 
ness  is  used  and  the  elastic  solution  is  obtained.  Using  the 
elastic  stiffness  for  each  increment  of  load  may  ensure  that 
a  correct  solution  is  obtained  if  the  structure  is  unloaded. 
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(2)  If  the  elastic  solution  indicates  that  some  elements  are 
in  yield,  excess  stresses  are  computed  and  redistributed  by 
iterative  processes.  During  the  redistribution  of  excess  stresses, 
a  new  stiffness  updated  after  the  first  iteration  is  used  in  sub¬ 
sequent  iterations. 

(3)  Step  (2)  is  repeated  until  the  equilibrium  conditions 
are  satisfied. 

(4)  Repeat  Steps  (1)  to  (3)  for  all  increments  of  load. 

A  flow  diagram  illustrating  the  algorithm  for  the  modified  elasto- 
plastic  analysis  is  shown  in  Figure  24.  It  may  be  noted  that  the 
incremental  stress-strain  relations  described  in  the  previous 
section  have  been  incorporated  in  the  formulation  of  the  method 
of  analysis. 

Modifications  of  the  Computer  Program  for  Modelling  Excavation 
Techniques,  Structural  Support  Schemes  and  Construction  Sequences 
The  general  concepts  in  developing  computational  models  for  simu¬ 
lating  excavation  techniques,  structural  support  schemes,  and 
excavation  and  construction  sequences  have  been  described  in  the 
previous  sections.  The  detailed  procedure  can  be  summarized  as 
follows : 

(1'  For  illustrative  purposes,  an  underground  opening  is 
shown  in  Figure  25  to  be  excavated  in  several  stages.  The  first 
step  in  the  analysis  is  to  assign  values  of  initial  stresses,  a., 
to  each  element.  The  initial  state  of  stress  may  be  estimated  1 
or  determined  in  the  field. 

(2)  Read  in  data  describing  the  current  stage  of  construc¬ 
tion,  i.e.,  elements  to  be  excavated,  elements  situated  within 
disturbed  zones,  nodal  forces  for  simulating  rock  bolts  instal¬ 
lation,  and/or  elements  as  a  st~uctural  support  or  lining,  if  any 
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FIGURE  24 


MODIFIED  STRESS  TRANSFER 
ANALYSIS 
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nodal  points  along  the  excavated  face  which  describe  the  geometry 
of  the  current  stage  of  excavation.  The  elements  to  be  excavated 
are  assigned  a  small  modulus  to  simulate  the  existence  of  a 
cavity.  The  elements  in  the  disturbed  zones  are  assigned  with 
a  lower  modulus  or  no  tensile  strength.  The  elements  for  struc¬ 
tural;  supports  are  assigned  with  appropriate  properties  corre¬ 
sponding  to  the  material  used  for  the  structural  supports. 

(3)  Initial  stresses,  c^,  on  the  boundary  exposed  by  exca¬ 
vation  are  computed  from  stresses  in  the  surrounding  ulciient.s 
using  a  technique  similar  to  that  used  by  Clough  and  Duncan  (1969) . 
The  detailed  procedure  has  been  described  in  the  final  report  under 
Contract  No.  H0210046.  To  simulate  excavation,  changes  in  stress, 
La,  which  are  equal  in  magnitude  and  opposite  in  sign  to  the  initial 
stresses,  o^  are  applied  to  the  boundary  exposed  by  excavation. 

(4)  An  initial  elastic  analysis  is  conducted.  Increments 
of  elastic  stresses  and  strains  are  computed. 

(5)  Unbalanced  excess  stresses  are  determined  and  redis¬ 
tributed  by  iterative  processes  until  the  equilibrium  conditions 
are  satisfied. 

(6)  Repeat  Steps  (2)  to  (5)  for  all  construction  stages. 

A  flow  diagram  showing  the  proposed  procedure  to  simulate  exca¬ 
vation  techniques,  structural  support  schemes,  and  excavation 
and  construction  sequences  is  illustrated  in  Figure  26.  The 
proposed  procedure  has  been  used  to  modify  the  existing  computer 
program.  To  verify  and  illustrate  the  use  of  the  modified  com¬ 
puter  program,  several  example  problems  were  analyzed.  The 
results  of  the  analyses  are  described  in  the  following  section. 


WOODWARD-I  UNDGREN  &  ASSOCIATES 


READ  IN  MATERIAL  PROPERTIES, 
STRUCTURAL  IDEALIZATION  AND 
INITIAL  STATE  OF  STRESS 


READ  IN  ELEMENTS  TO  BE  EXCAVATED, 
ELEMENTS  IN  DISTURBED  ZONES  NODAL 
POINTS  ALONG  EXCAVATED  FACE, 

NODAL  FORCES  SIMULATING  ROCK  BOLTS 
OR  ELEMENTS  REPLACED  BY  STRUCTURAL 
SUPPORTS 


COMPUTE  NODAL  FORCES  ALONG  EXCAVATED 
FACE  AND  OTHER  BOUNDARY  FORCES 


ILLUSTRATIVE  PROBLEMS 
Definition  of  Problems 

The  following  four  example  problems  were  analyzed  using  the  modified 
computer  program: 

I.  Elasto -plastic  analysis  of  a  thick-walled  circular  tube  with 
the  Von  Mises  yield  criterion.  A  closed  form  solution  is  avail¬ 
able  for  this  case  for  verification. 

II.  Elasto-plastic  analysis  of  a  circular  opening  with  the 
generalized  Mohr-Coulomb  yield  criterion.  The  results  are  com¬ 
pared  with  those  obtained  by  Reyes  (1966). 

III.  Elastic  analysis  of  a  circular  opening  by  two  stages  of 
excavation  and  gravity  turn-on  procedures. 

IV.  Analysis  of  a  circular  opening  reinforced  by  rock  bolts  and 
a  concrete  lining. 

Problems  (I)  and  (II)  were  analyzed  to  show  the  improved  accuracy 
and  rate  of  the  solution  convergence  as  compared  with  those 
reported  in  the  final  report  under  Contract  No.  H0210046.  Problem 
(III)  was  analyzed  to  indicate  the  ability  of  the  computational 
technique  used  to  simulate  excavation  sequences.  Problem  (IV)  was 
analyzed  to  illustrate  capabilities  of  the  modified  computer  pro¬ 
gram  for  simulation  of  excavation  techniques,  support  installation 
and  construction  sequences. 

Results 

I.  Flasto-plastic  Analysis  of  a  Thick-walled  Circular  Tube 
Subject  to  Internal  Pressure 

The  dimensions  of  the  rube,  the  material  properties  and  the  finite 
element  idealization  of  the  problem  are  shown  in  Figure  27.  The 
results  of  the  anal) sis,  together  with  the  closed  form  solution 
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FIGURE  27  -  FINITE  ELEMENT  MESH  FOR  AN  ELASTO-PLASTIC  ANALYSIS  OF 
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obtained  by  Prager  and  Hodge  (1951)  are  shown  in  Figures  28 
through  31.  Comparison  between  the  results  obtained  from  the 
finite  element  analysis  and  those  from  the  closed  form  solu¬ 
tion  indicates  good  agreement. 

II.  Elasto-plastic  Analysis  of  a  Circular  Opening  with  the 
Generlized  Mohr-Coulomb  Yield  Criterion 

The  finite  element  idealization  together  with  the  definitions 
of  the  problem  is  shown  on  Figure  32.  The  analysis  was  con¬ 
ducted  by  applying  pressures  on  the  cavity  face.  The  boundary 
pressures  were  applied  in  five  increments.  It  should  be  noted 
that  only  two  to  four  iterations  were  required  for  each  incre¬ 
ment  of  load  for  solution  convergence,  indicating  improved  rates 
of  solution  convergence  obtained  by  updating  the  stiffness,  the 
additional  option  added  to  the  existing  program.  The  results 
of  the  analysis  together  with  those  obtained  by  Reyes  (1966) 
are  shown  in  Figures  33  and  34. 

III.  Elastic  Analysis  of  a  Circular  Opening  by  Two-Stage  Exca¬ 
vation  and  Gravity  Turn-on  Procedures 

The  finite  element  idealization  of  a  circular  opening  20  feet 
in  diameter  is  shown  on  Figure  35.  The  elastic  stress  distri¬ 
bution  was  obtained  by  a  two-stage  excavation  procedure.  The 
initial  state  of  stress  was  obtained  by  the  gravity  turn-on 
procedure.  The  first-stage  excavation  of  a  10-foot-diameter 
cavity  was  conducted  using  the  proposed  technique  for  simulating 
excavation.  After  the  elastic  stress  distribution  for  the  first- 
stage  excavation  was  obtained,  the  remaining  rock  was  removed 
by  the  second-stage  excavation.  The  elastic  stress  distribution 
obtained  by  the  two-stage  excavation  procedure  is  compared  with 
the  one-step  gravity  turn-on  procedure  as  shown  in  Figure  36. 

It  may  be  noted  that  the  virtually  identical  stress  distribution 
was  obtained  by  both  procedures  indicating  that  the  proposed 
technique  for  simulating  excavation  is  accurate  enough  for 
engineering  purposes. 
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p  =  RADIUS  TO  ELASTO-PLASTIC  BOUNDARY 

- CLOSED  FORM  SOLUTION 

(PRAGER  AND  HODGE,  1951) 
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FIGURE  28  -  DISTRIBUTION  OF  CIRCUMFERENTIAL  STRESS 
FOR  A  THICK -WALLED  CIRCULAR  TUBE 
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FIGURE  29  -  DISTRIBUTION  OF  RADIAL  STRESS  FOR  A 
THICK-WALLED  CIRCULAR  TUBE 
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FIGURE  32  -  FINITE  ELEMENT  MESH  FOR  AN  ELASTO-PLASTIC  ANALYSIS  OF  A  CIRCULAR  OPENING 
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FIGURE  34  -  DEFORMATION  ALONG  CAVITY  FACE  OF  A  CIRCULAR  OPENING  AS  COMPUTED  BY  ELASTIC 
AND  ELASTIC-PLASTIC  ANALYSIS 
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FIGURE  36  -  COMPARISON  OF  VERTICAL  AND  HORIZONTAL  STRESSES  ALONG  HORIZONTAL  SECTION  OF 
A  CIRCULAR  OPENING  OBTAINED  BY  TWO' STAGE  EXCAVATION  AND  BY  GRAVITY  TURN -ON 
ANALYSIS  (ELASTIC) 
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IV.  Analysis  of  a  Circular  Opening  Reinforced  by  Rock  Bolts 
and  a  Concrete  Lining 

The  assumed  construction  sequences  of  the  opening  analyzed  is 
shown  in  Figure  37.  It  is  assumed  that  the  opening  is  to  be 
excavated  full  face,  followed  by  installation  of  a  set  of  rock 
bolts.  At  the  final  stage  of  construction,  a  concrete  liner, 

1  foot  thick,  is  installed.  The  opening,  10  feet  in  diameter, 
is  assumed  to  be  situated  in  a  rock  mass  under  an  initial  stress 
field  which  consists  of  a  vertical  stress  of  1000  psi  and  a 
horizontal  stress  of  400  psi.  The  finite  element  idealization 
of  the  problem  is  shown  in  Figure  38.  Sixteen  sets  of  rock  bolts 
are  installed.  Each  set  is  tensioned  to  28,300  pounds  per  linear 
foot  along  the  tunnel  axis  equivalent  to  100  psi  compressive 
stress  applied  to  the  cavity  face.  The  analysis  was  conducted 
in  accordance  with  the  following  procedure:  (1)  an  elastic 
analysis  of  the  structure  subjected  to  boundary  pressures  simu¬ 
lating  excavation  and  installation  of  rock  bolts  was  first  per¬ 
formed;  (2)  a  concrete  liner  was  then  "installed."  The  results 
of  analysis  obtained  from  Step  (1)  was  considered  as  an  initial 
condition  in  the  subsequent  analyses  in  which  excess  stresses 
were  redistributed.  The  results  of  the  analysis, as  shown  in 
terms  of  the  stress  distribution  in  both  tho  concrete  liner  and 
the  rock  surrounding  the  opening,  is  illustrated  in  Figure  39. 

For  the  purpose  of  comparison,  the  results  of  the  analysis  on 
the  unsupported  opening  obtained  in  Problem  (II)  are  also  shown 
in  Figure  39.  The  difference  in  the  stress  distribution  obtained 
in  Problems  (II)  and  (IV)  is  due  to  the  installation  of  the  rock 
bolts  and  the  concrete  liner. 
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EVALUATION  OF  ANALYTICAL  METHOD  (COMPUTER  PROGRAM)  ••  CASE 
HISTORY  STUDTES 

To  evaluate  the  capabilities  and  reliability  and  illustrate  the 
use  of  the  computer  code  developed,  studies  were  made  on  a 
number  of  wel 1- documented  model  tests  and  case  histories  of 
underground  openings.  These  include  the  analysis  of  model 
tests  on  lir.ed  and  unlined  openings  in  jointed  rock,  the  ana¬ 
lysis  of  Tumut  I  Underground  Power  Station,  and  a  rock  tunnel 
of  Washington  D.C.  Metro.  Analyses  of  these  case  history 
studies  are  described  in  the  following  sections. 

ANALYSIS  OF  LABORATORY  MODEL  OF  LINED  AND  UNLINED  OPENINGS 
IN  JOINTED  ROCK 
Description  of  Model  Study 

Hendron,  et  al,  (1972)  conducted  a  series  of  model  tests  on 
lined  openings  in  jointed  rock  fabricated  by  a  rock-like  mate¬ 
rial.  One  of  these  models  analyzed  in  this  study  is  shown  in 
Fig.  40.  The  joint  blocks  used  to  construct  the  model  were 
made  by  sawing  them  out  of  larger  compacted  blocks.  The  mate¬ 
rial  used  was  a  water/plastic/sand  mixture  and  was  the  same  as 
that  used  by  Heuer  and  Hendron  (1969)  in  model  tests  of  un¬ 
lined  openings  in  solid  blocks.  The  model  analyzed  in  this 
study  was  constructed  with  a  2- inch  joint  spacing  in  two 
mutually  perpendicular  directions  at  45°  to  the  principal 
loading  directions.  A  4  -  inch- diameter  opening  was  cored 
after  the  model  was  constructed  in  the  testing  machine  and  a 
seating  load  of  about  25  psi  was  applied  in  both  the  vertical 
and  horizontal  directions.  The  0. 035-inch-thick  aluminum  liner 
was  then  installed  in  the  opening  and  grouted  in  place  using 
a  liquid  grout  consisting  of  one  part  water  to  one  part  sul- 
faset  rock  bolt  cement  by  weight.  The  model  was  tested  at  a 
principal  stress  ratio  a^/cy  =  2/3  to  a  maximum  vertical  model 
pressure  of  1300  psi  under  plane  strain  conditions.  The  model 
was  instrumented  with  eight  pairs  of  buried  extensometers  and 
six  diametrical  extensometers  in  the  tunnel  liner  as  shown  in 
Fig  41 . 
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Fig.  40  Photograph  of  JB#4  Before  Test  at 
N  «  crH/av  =  2/3  (After  Hendron, 
et  al.  1972) 
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Fig.  41  Locations  of  Extensometers  in  Jointed  Test 
Blocks  (After  Hendron  et  al.,  1972) 
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Behavior  of  Model 

The  average  stress-strain  curves  of  the  model  obtained  from 
the  buried  extensometers  are  shown  in  Fig.  42.  The  average 
strains  represent  the  strains  of  the  total  model  block.  Both 
the  vertical  and  horizontal  strains  are  compressive.  The 
vertacal  strain  is  approximately  three  times  larger  than  the 
horizontal  strain.  The  liner  buckled  at  a  vertical  pressure 
o  about  1100  psi.  The  buckling  of  the  liner  is  reflected  in 
the  average  stress- strain  curves  of  the  block  as  a  sharp  de¬ 
viation  from  linearity  at  a  pressure  of  about  1100  psi. 

The  diametrical  strains  measured  by  the  six  diametrical  exten¬ 
someters  are  plotted  in  Fig.  43  as  a  function  of  the  vertical 
model  pressure.  Buckling  of  the  liner  is  clearly  shown  at  a 
vertical  pressure  of  about  1100  psi  at  which  the  diametrical 
strains  increased  at  greater  rates.  A  photograph  of  the 
jointed  block  after  test  is  shown  in  Fig.  44.  It  may  be  seen 
t  at  the  actual  buckling  occurred  as  a  pair  of  buckles  located 
along  the  45"  diametrical  plane  which  coincided  with  the  inter- 
section  of  a  joint  plane  with  the  tunnel  liner. 


Analysis  of  Model  Study 

Idealization  of  the  Model  -  The  finite  element  idealization  of 
the  jointed  model  with  a  lined  opening  is  shown  in  Fig.  45. 

The  joints  were  idealized  by  one-dimensional  joint  elements, 
and  the  rock  blocks  were  idealized  by  one  or  several  two- 
imensional  elements.  Because  of  the  variation  in  the  size 
of  blocks  and  the  difficulty  involved  in  the  assemblage  of 
the  model,  the  joint  blocks  of  the  actual  model  were  not 
separated  by  continuous  straight  joints.  For  the  idealiza¬ 
tion  necessary  for  the  analysis,  the  joints  had  to  be 
assumed  as  straight  and  continuous. 
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Fig.  42  Measured  and  Computed  Average  Stress-Strain 
Model  Test  on  Joint  Block  with  Lined  Opening 
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(a)  View  of  whole  model  after  test 
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(b)  Closeup  of  tunnel  liner  after  test 

(photograph  taken  from  the  other  side) 
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Fig.  44  Photographs  of  Jointed  Block  After  Test 
(After  Hendron  et  al.,  1972) 
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Fig.  45  Finite  Element  Idealization  of  Jointed  Model 
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Material  Properties  Used  in  the  Analysis  -  The  material  proper¬ 
ties  o  the  intact  block  used  in  the  model  were  selected  on  the 
basis  of  results  obtained  from  a  series  of  triaxial  tests  con¬ 
ducted  by  Heuer  and  Hendron  (1971),  and  Hendron  et  al.  (1972) 
The  Mohr  envelope  of  the  rock-like  material  used  is  shown  in  ’ 
Fig.  46.  The  strength  parameters  were  determined  to  be  c  -  170 
psi,  <j>  -  32.5  degrees,  and  the  tensile  strength  of  33  psi.  The 
average  value  of  the  modulus  was  determined  to  be  833,000  psi 
and  the  Poisson's  ratio  to  be  0.14. 


The  aluminum  Uner  was  assigned  the  modulus  of  107 
Poisson's  ratio  of  0.33.  The  aluminum  was  assumed 
the  Von  Mises  yield  criterion  with  the  tensile  and 
strength  of  40,000  psi. 


psi  and  the 
to  follow 
compressive 


As  described  previously,  the  joint  blocks  were  sawed  from  larger 
compacted  blocks.  The  deformability  of  the  joints  which  con¬ 
sists  of  the  normal  and  shear  stiffnesses  depends  on  the  rough¬ 
ness  of  the  sawed  surface.  No  test  data  were  available  for 
evaluation  of  the  deformability  of  the  joints.  The  angle  of 
shearing  resistance  on  the  joint  surfaces  was  obtained  by 
Hendron,  et  al.  (1972)  from  a  series  of  direct  shear  tests.  The 
results  of  these  tests  are  shown  in  Fig.  47.  The  effective 
angle  of  shearing  resistance  decreases  from  33°  to  29°  with 
increasing  normal  pressures.  The  effective  angle  of  shearing 

resistance  of  the  joint  surfaces  used  in  the  analysis  was 
selected  to  be  29°. 


Table  2  summarizes  the  material  properties  except  the  deform- 
ability  of  the  joints  used  in  the  analysis  of  the  model  test. 


Selection  of  Joint  Deformation  Charaoterietic a  -  A  parametric 
study  was  conducted  assuming  various  combinations  of  both  normal 
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and  shear  stiffnesses  in  order  to  select  a  reasonable  set  of  the 
joint  deformability  characteristics  for  the  detailed  analysis. 

A  total  of  13  cases  were  analyzed.  The  normal  stiffness  was 
varied  from  2.0  x  104  pci  to  4.17  x  107  pci  and  the  shear  stiff¬ 
ness  was  varied  from  4  0  x  103  pci  to  1.5  x  104  pci.  The 
results  of  the  parametric  study  in  terms  of  the  average  model 
strains  and  the  diametrical  strains  of  the  liner  at  the  vertical 
model  pressure  of  1000  psi  are  summarized  in  Table  3. 

From  the  results  of  the  parametric  study,  the  deformability  of 
the  joints  which  would  provide  magnitudes  of  both  vertical  and 
horizontal  strains  similar  to  those  observed  at  the  applied 
vertical  pressure  of  1000  psi  was  selected  for  the  detailed 
analysis.  The  normal  and  shear  stiffnesses  of  the  joints 
selected  were  3.5  x  104  pci  and  1.5  x  104  pci,  respectively. 

The  magnitudes  of  these  joint  stiffnesses  were  later  found  to 
be  reasonable  and  compatible  with  the  deformability  of  various 
rock  joints  compiled  by  Goodman  (1969). 

Results  of  Analysis  -  The  following  three  cases  were  analyzed: 
Case  A  assumed  that  the  liner  continued  to  remain  intact  with 
the  joint  block  at  a  vertical  pressure  greater  than  1100  psi; 
Case  B  assumed  that  the  liner  buckled  at  the  vertical  pressure 
of  1100  psi  and  would  not  take  any  load  at  greater  pressures; 
Case  C  analyzed  the  unlined  cavity. 

The  results  of  these  analyses  are  presented  in  Figs.  42,  43, 

48,  49,  50  and  51.  Fig.  42  shows  the  computed  and  measured 
average  and  horizontal  strains  as  a  function  of  the  applied 
vertical  pressure.  For  both  Cases  A  and  B,  the  computed  and 
measured  strains  are  in  good  agreement  up  to  a  vertical  pressure 
of  about  1200  psi  at  which  point  the  cavity  elongated  in  the 
horizontal  direction  due  to  buckling  of  the  liner.  Fig.  43 
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shows  the  computed  diametrical  strains  obtained  from  the  analysis 
of  Case  B  together  with  the  measured  strains  at  various  locations 
along  the  liner.  Generally,  the  magnitudes  of  the  computed 
strains  are  in  reasonable  agreement  with  those  measured  at 
their  respective  locations  along  the  liner.  However,  the  rate 
of  increase  in  the  measured  diametrical  strain  is  greater  than 
those  computed  at  vertical  pressures  greater  than  1100  psi. 

Fig.  48  illustrates  the  propagation  of  computed  plastic  zones 
in  the  model  as  well  as  the  liner  with  an  increase  in  the  applied 
pressure.  The  plastic  zones  are  confined  to  the  liner  and  the 
immediate  vicinity  of  the  opening.  It  is  interesting  to  note 
that  at  the  vertical  pressure  of  1100  psi,  the  plastic  zones 
appear  to  propagate  over  the  entire  liner,  a  result  consistent 
with  the  observed  buckling  of  the  liner  at  the  same  applied 
pressure . 

To  examine  the  cause  of  buckling  of  the  liner  which  occurred 
along  the  45°  diametrical  plane  (MN)  as  shown  in  Fig.  44,  rela¬ 
tive  tangential  displacements  across  the  joints  in  the  vicinity 
of  the  opening  at  the  applied  vertical  pressure  of  1100  psi  are 
plotted  in  Fig.  49.  It  may  be  noted  that  the  relative  tangential 
displacements  across  the  joint  along  the  45°  diametrical  plane 
AA'  increased  from  0.01  inch  at  the  locations  away  from  the 
opening  to  0.02  inch  at  the  intersection  of  the  joint  and  the 
liner,  indicating  that  the  joint  plane  was  penetrating  the  liner 
at  the  location  where  the  buckling  of  the  liner  occurred. 

The  results  of  the  analysis  on  the  unlined  opening  (Case  C)  are 
shown  in  Figs.  50  and  51.  The  comparison  between  the  average 
model  strains  of  the  lined  and  unlined  openings  indicates  that 
the  liner  has  an  insignificant  effect  on  the  average  strains 
of  the  models.  However,  the  comparison  between  the  diametrical 
strains  computed  for  the  unlined  opening  shown  in  Fig.  51  and 
those  for  the  lined  opening  shown  in  Fig.  43,  indicates  that 
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the  liner  has  a  large  effect  in  restraining  the  inward  move¬ 
ments  of  the  opening.  Also  shown  in  Fig.  51  are  the  diametrical 
strains  measured  after  the  liner  buckled  in  the  model  test 
described  in  the  previous  section.  It  may  be  noted  that  at  the 
vertical  pressure  of  1300  psi,  the  computed  diametrical  strains 
are  on  the  same  order  of  magnitude  as  those  measured  after  the 
liner  buckled,  indicating  that  the  behavior  of  the  opening  after, 
the  liner  failed  could  be  predicted  by  analyzing  the  opening 
with  no  liner. 

Summary 

The  results  of  the  analyses  of  the  laboratory  model  of  the 
lined  opening  in  jointed  rock  conducted  by  Hendron  et  al .  (1972) 
indicate  that  the  behavior  of  the  model  is  greatly  affected  by 
the  deformability  of  the  joints  expressed  in  terms  of  the  normal 
and  shear  stiffnesses.  Al-  hough  no  data  were  available  to 
determine  the  deformability  of  the  joints,  it  was  possible 
through  an  iterative  process  to  determine  joint  stiffnesses 
which  would  provide  a  reasonable  agreement  between  the  computed 
and  measured  deformabilities  of  the  model.  Using  these  joint 
stiffnesses,  the  behavior  of  the  lined  opening  up  to  the  buckling 
of  the  liner  could  be  predicted  with  reasonable  accuracy.  The 
discrepancy  between  the  computed  and  measured  diametrical  strains 
may  be  attributed  to  the  approximations  involved  in  the  ideali¬ 
zation  of  the  actual  jointed  model  and  the  interaction  of  the 
liner  and  the  jointed  blocks  in  the  vicinity  of  the  opening. 

A  comparison  of  the  results  of  the  analyses  of  the  lined  and 
unlined  openings  showed  that  the  liner  had  a  significant  influ¬ 
ence  in  restraining  the  inward  movement  of  the  opening.  It  was 
also  found  that  the  behavior  of  the  lined  opening  after  the 
failure  of  the  liner  could  be  predicted  from  an  analysis  of 
the  unlined  opening. 
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ANALYSIS  OF  TUMUT  I  UNDERGROUND  POWER  STATION,  SNOWY  MOUNTAINS, 
AUSTRALIA 

Description  and  Geological  Structure  of  the  Site 
The  Tumut  I  underground  power  station  (Moye,  1964)  is  situated 
under  the  lower  part  of  the  very  steep  eastern  wall  of  the 
Tumut  Valley  in  the  Snowy  Mountains  of  southeast  Australia, 
about  1100  feet  vertically  below  the  ground  surface,  1200  feet 
in  from  the  river,  and  150  feet  below  the  level  of  the  river 
bed.  The  plan  of  the  power  station  is  shown  in  Fig.  52.  The 
machine  hall  is  306  feet  in  length,  44  feet  in  maximum  width, 
and  104  feet  in  maximum  height. 

The  Tumut  I  power  station  is  located  in  a  complex  mass  of  gra¬ 
nitic  parogneiss  and  granulite  intruded  by  sheets  of  granites. 
The  group  of  mctamorphic  rocks  is  referred  to  as  Boomerang 
Creek  granitic  gneiss,  and  the  granites  as  Happy  Valley  granite. 
The  granite  sheets  strike  N65°E  to  N100°L  and  dip  40°-50°  SE. 
Their  distribution  at  power  station  level  is  shown  in  Fig.  52. 

At  Tumut  I  power  station  site,  two  small  but  persistent  minor 
faults  intersect  the  machine  hall.  One  is  over  the  full  length 
of  the  roof  (Fig.  52,  A).  It  strikes  N40°E  to  N60°E  and  dips 
approximately  35°SE.  In  the  granite,  it  is  seen  as  one  or  a 
group  of  several  persistent  fracture  planes  with  1/2  to  1  inch 
of  crushed  granite  containing  a  little  clay  along  the  planes, 
or  as  a  zone  of  close  jointing.  In  the  gneiss,  it  is  repre¬ 
sented  by  a  zone  of  close  jointing  5-10  feet  wide,  with  joints 
spaced  2-6  inches  apart.  These  joints  are  usually  smooth, 
coated  with  chlorite  but  not  clay,  s 1 ickens ided ,  and  tightly 
closed.  The  second  small  fault  has  a  strike  of  N30°E  and  dips 
60°-70°W.  It  cuts  across  the  tailrace  surge  chamber,  draft 
tubes,  and  the  western  end  of  the  machine  hall  (Fig.  52,  B) . 

In  the  granite  it  usually  consists  of  one  or  two  fracture 
planes  with  1/4  to  1  inch  of  clay  and  crushed  granite  along 
the  planes.  As  the  contact  with  the  gneiss  is  approached,  it 


WOODWARD  LUNDGREN  &  ASSOCIATES 


-98 


2800  - 


a 


-  2 /SO- 


4^ 


-►a?oo 

< 

> 


rs 


SECTION  A -A' 
UPSTREAM  WALL 


—  26SO- 


JSL 


■4- 


~L _ — 

SECTION 


I 


B  -  B' 


LIFT  SHAFT 


PRESSURE  SHAFT  *B 


PRESSURE  SHAFT  a' 


Happy  Vallty  Cranltt 


SCALE  OF  FEET 
SO  O  SO  IOO 

1  “  “  1 1  “  l 1  1  ' 


Granitic  Gndli 


ISO 


Tract  of  Faulti  ®  and  ® 

Troct  of  Jainti  (a),(j),ond  © 

Thrtt  main  let*  af  joint!  art  approiimattly 
porolltl  to  and  0 


Fig.  52  Plan  and  Sections  of  the  Tumut  I  Power  Station 


t 


-99- 


becomes  less  distinct  and  splits  into  several  parallel  clay- 
coated  joints,  many  without  crushed  rock,  and  continues  in  the 
gneiss  as  a  group  of  clay-coated  joints. 

In  addition  to  these  minor  faults,  there  is  a  very  persistent 
zone  of  close  fracturing  a  few  inches  in  width,  wh-Lch  occurs 
in  the  lower  part  of  the  power  station  walls,  and  in  the  walls 
of  the  transformer  hall  (Fig.  52,  D) .  This  zone  has  been 
found  only  in  the  granite.  It  has  a  roughly  north-south  strike 
and  a  gentle  dip  to  the  east. 

In  addition  to  these  well-defined  localized  structures  the  rock 
mass  is  extensively  jointed.  The  joint  pattern  is  similar  in 
both  rock  types,  but  the  spacing  of  the  joints  is  usually  much 
closer  in  the  gneiss  than  in  the  granite.  Most  joints  can  be 
grouped  into  the  following  three  principal  sets  (Fig.  52,  a,  b, 
c)  : 

Set  a:  Strike  N40°-60°n  and  dip  35°SE.  These  are  parallel 
to  fault  A. 

Set  b:  Strike  N30°E  and  dip  65°W  to  80°E.  The  strike  of 
these  joints  makes  a  small  acute  angle  with  the  long  walls 
of  the  machine  hall. 

Set  c:  Strike  N130°L  and  dip  80°W.  These  joints  are 
spaced  40-80  feet  apart  but  are  very  persistent.  A  single 
joint  may  split  into  two  or  more  closely  spaced  joints. 

The  joint  surfaces  are  rough  and  irregular.  The  strike  of 
these  joints  is  nearly  at  right  angles  to  the  long  walls 
of  the  machine  hall. 

In  the  gneiss  the  spacing  of  the  joints  of  sets  a  and  b  is 
generally  6  inches  to  2  feet  with  some  areas  of  narrower  and 
some  of  wider  spacing.  The  joint  surfaces  are  usually  smooth 
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and  si ickens ided .  Most  joints  are  tightly  closed.  In  the  gra¬ 
nite,  the  spacing  of  the  joints  of  sets  a  and  b  is  variable 
but  generally  in  the  range  of  1  to  5  feet. 

Construction  Sequences  and  Behavior  of  the  Excavations 
The  machine  hall  was  excavated  in  several  stages.  The  detail 
of  excavation  sequences  is  shown  in  Fig.  53.  After  the  pilot 
tunnel  was  driven,  the  roof  section  of  the  machine  hall  was 
excavated  to  full  width,  rock  bolts  and  permanent  concrete 
ribs  installed.  Following  this,  the  main  body  of  the  machine 
hall  was  excavated  by  quarrying  methods.  The  vertical  walls 
and  roof  were  systematically  rock-bolted  as  soon  as  they  were 
exposed  (Moye,  1964;  Lang,  1958).  The  rock  bolts  used  con¬ 
sisted  of  mild  steel  bars  1  inch  in  diameter,  mostly  10  or  15 
feet  long,  with  a  slot-and-wedge-type  anchor  and  furnished 
with  6-inch-  or  8 -  inch- square  steel  plates  for  bearing  against 
the  rock  surface.  They  were  spaced  4  or  5  feet  apart.  During 
installation,  they  were  stressed  to  a  nominal  load  of  20,000 
pounds  tension.  The  concrete  ribs  were  of  4  feet  x  4  feet 
cross-section,  with  a  spacing  between  ribs  of  8  feet  over  one- 
half  of  the  hall  and  a  spacing  of  4  feet  over  the  other  half, 
where  the  rock  was  more  jointed.  During  excavation,  overbreak 
to  the  extent  of  1  to  3  feet  was  common  under  the  effects  of 
blasting.  On  the  upstream  wall  rather  extensive  loosening  of 
the  granite  joint  blocks  occurred.  This  loosening  apparently 
was  influenced  by  the  zone  of  close  jointing  along  fault  A  in 
the  middle  of  the  wall  being  intersected  by  joints  of  set  b 
dipping  steeply  toward  the  excavation. 

The  behavior  of  the  rock  mass  around  the  machine  hall  excavation 
was  observed  during  construction  by  the  following  quantitative 
instrumental  measurements: 

(a)  The  strain  in  many  of  the  reinforced  concrete  arch 

ribs  was  measured  by  means  of  electric  resistance- type 
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strain  meters  embedded  in  the  concrete,  and  by  obser¬ 
vation  of  Huggenberger  deformeter  points  fixed  on  the 
surface  of  some  ribs. 

(b)  The  horizontal  movement  of  points  at  the  ends  of  the 
concrete  ribs  and  on  the  rock  walls  was  measured  by 
precise  survey  methods. 

(c)  The  angular  rotation  of  points  on  the  reinforced  con¬ 
crete  abutment  beams  and  on  the  walls  was  measured 

by  means  of  sensitive  clinometers. 

The  data  obtained  from  the  instrumental  measurements  were  sum¬ 
marized  by  Alexander,  et  al.  (1963)  and  shown  in  big.  54.  At 
Rib  No.  15,  the  strains  developed  in  the  roof  rib  one  year  after 
the  excavation  was  complete  were  800  yin. /in.  at  the  downstream 
side.  The  abutment  deflections  at  »L  2746  developed  in  the 
5-month  period  after  the  excavation  was  completed  were  0.3  inch 
at  the  downstream  side  and  0.07  inch  at  the  upstream  side.  Both 
sides  of  the  abutment  moved  towards  the  center  of  the  hall.  It 
may  be  noted  that  the  initial  measurements  of  the  reference 
points  were  made  after  the  excavation  was  complete.  Therefore, 
the  movements  which  occurred  during  excavation  were  not  recorded. 
While  the  instrumental  data  presented  in  Fig.  54  were  not  suf¬ 
ficient  to  give  a  complete  picture  of  the  behavior  of  the  exca¬ 
vation,  certain  trends  are  recognizable.  Significant  features 
of  the  behavior  of  the  excavation  are  summarized  below: 

(1)  The  movements  due  to  excavation  were  much  larger  on 

the  downstream  side  of  the  machine  hall.  This  behavior 
was  manifested  by  large  strains  and  deflections  mea¬ 
sured  on  the  downstream  side  of  the  concrete  ribs  and 
the  rock  walls  as  compared  with  small  movements  observed 
on  the  upstream  side.  The  asymmetrical  behavior  of  the 


WOODWARD-LUNDGREN  s.  ASSOCIATES 


RIB  No 


Fig.  56  Analytical  Simulation  of  Construction  Sequences  for  the 
Machine  Hall  of  Tumut  I  ?nver  Station 


-106- 


machine  hall  may  be  attributed  to  topographic  effects 
and  the  existance  of  the  two  intersecting  minor  faults 
and  joints  near  the  downstream  end. 

(2)  Severe  cracking  was  observed  in  the  concrete  abutment 

beams  on  which  the  roof  ribs  were  supported  and  spalling 
noted  in  a  number  of  ribs  in  locations  adjacent  to  both 
upstream  and  downstream  abutments,  the  spalling  being 
more  severe  at  the  downstream  end.  It  is  interesting 
to  note  that  the  cracking  was  first  noticed  when  the 
excavation  was  nearing  completion  and  grew  progressively 
worse  until  the  excavation  was  complete,  after  which  no 
further  worsening  was  noticed.  This  appears  to  indicate 
that  the  construction  sequence  had  definite  effects  on 
the  behavior  of  the  support  and  excavation. 

Idealization  of  the  Power  Station  Excavation 

Finite  Element  Idealization  -  For  the  purpose  of  analysis,  a 
cross-section  through  the  roof  Rib  No.  15  shown  in  Fig.  54  was 
selected.  A  finite  element  idealization  of  the  section  is 
shown  in  Fig.  55.  Because  the  power  station  is  situated  at 
a  depth  greater  than  1100  feet  below  the  ground  surface,  it  can 
be  assumed  that  the  presence  of  the  ground  surface  has  a 
negligible  effect  on  the  behavior  of  the  excavation.  For 
this  reason,  the  boundaries  of  the  finite  element  mesh  were 
assumed  fixed  against  any  movements.  The  essential  feature  in 
the  idealization  is  the  presence  of  two  faults,  A  and  B.  These 
faults  are  sub-parallel  to  the  axis  of  the  excavation.  There¬ 
fore,  the  plane  strain  assumption  of  these  geologic  features 
should  not  incur  serious  errors  in  the  analysis.  The  faults 
were  idealized  with  Goodman's  one-dimensional  joints.  To  simu¬ 
late  actual  excavation  sequences  (shown  in  Fig.  53)  a  simplified 
4-stage  excavation  as  shown  in  Fig.  56  was  employed  in  the 
analysis.  The  concrete  rib  of  4  feet  x  4  feet  cross-section 
with  spacing  between  ribs  of  8  feet  was  idealized  as  a  2.8-foot- 
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thick  continuous  concrete  arch  with  the  same  section  modulus. 

The  effect  of  patterned  rock-bolting  in  the  roof  and  vertical 
walls  was  simulated  by  applying  an  equivalent  pressure  of  7  psi 
to  the  excavated  face  and  the  interior  of  the  rock  mass  along 

rock  anchors.  The  pressure  was  applied  when  the  excavation  was 
made . 

Initial  State  of  Stress  -  Stress  measurements  were  made  at  one 
of  the  machine  halls  of  Tumut  I  when  the  power  station  excava¬ 
tion  was  well  advanced  (Alexander,  et  al.  1963).  The  measured 
stresses  were  corrected  by  the  stress-concentration  factors 
estimated  at  the  test  sites.  The  initial  state  of  stress  at 
the  springline  of  Tumut  I  was  computed  to  be: 

vertical  stress  =  1800  psi 

horizontal  stress  oh  =  1500  psi 
shear  stress  tyh  =  250  psi 

Because  Tumut  I  is  situated  below  a  steeply  sloping  wall  of  the 
Tumut  Valley,  it  was  considered  reasonable  to  assume  that  shear 
stresses  and  high  horizontal  stress  would  exist  at  the  site. 

In  the  analysis  of  Tumut  I  power  station,  the  initial  state  of 
stress  in  the  rock  mass  was  computed  in  accordance  with  the 
following  procedure:  (1)  the  vertical  stress  in  the  rock  mass 
was  calculated  by  applying  correction  due  to  gravity  to  the 
assumed  vertical  stress  of  1800  psi  at  the  springline;  (2)  the 
horizontal  stress  was  computed  by  multiplying  the  vertical 
stress  by  0.83,  the  ratio  of  the  horizontal  to  vertical  stress 
at  the  springline;  and  (3)  the  shear  stress  was  assumed  constant 
throughout  the  rock  mass. 

Material  Properties  -  The  rock  present  at  the  section  of  interest 
is  predominantly  Happy  Valley  Granite.  The  strength  and  elastic 
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properties  of  the  rock  were  measured  from  a  series  of  triaxial 
tests  on  pieces  of  drill  cores  free  from  visible  joints  or 
other  defects  and  are  summarized  in  Table  4.  In  general, 
because  of  the  presence  of  joints  and  fractures,  the  moduli 
of  a  rock  mass  are  much  less  than  those  determined  on  small 
intact  rock  specimens.  For  the  purpose  of  analysis, 
a  lower  value  of  modulus,  as  summarized  in  Table  4,  was  used. 

Both  faults  A  and  B  were  idealized  by  one-dimensional  joint 
elements.  The  properties  of  these  faults  were  approximated  by 
the  normal  and  shear  joint  stiffnesses  (Goodman,  1969)  which 
are  functions  of  normal  and  tangential  deformability  of  the 
faults  and  the  thickness  of  the  fractured  zones.  No  data  was 
available  for  evaluation  of  the  norma]  and  shear  stiffnesses. 
However,  fault  "B"  appears  to  be  more  deformable  than  "A" 
because  of  the  presence  of  clay  and  clay-coated  joints  in  "B". 

A  number  of  sets  of  joint  stiffness  was  utilized  to  parametri¬ 
cally  study  the  influence  of  the  deformability  of  the  faults 
on  the  behavior  of  the  excavation.  The  values  which  provided 
a  good  agreement  between  the  observed  and  computed  strains  in 
the  concrete  rib  are  summarized  in  Table  4. 

Analysis  Procedures 

To  study  the  behavior  of  the  machine  hall  excavation,  a  four- 
stage  construction  and  excavation  sequence  as  shown  in  Fig.  56 
was  simulated  in  the  analysis.  The  initial  state  of  stress 
before  excavation  was  first  calculated  for  each  element.  Nodal 
forces  to  simulate  excavation  and  rock-bolting,  if  any,  were 
computed,  and  a  linear  elastic  analysis  was  conduced  at  each 
excavation  stage.  Additional  iterative  analyses  were  performed 
to  redistribute  any  excess  stresses  if  two-dimensional  elements 
yielded  or  failed  in  tension,  or  joint  elements  failed  in  shear 
or  tension.  The  stress,  strain,  and  deformation  components 
due  to  each  stage  of  excavation  were  cumulated  in  accordance 
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Table  4  Rock  Properties  at  Tumut  1 
Underground  Power  Station 


A.  Happy  Valley  Granite  (Moye,  1964) 


Values  Obtained  Values  Used 

from  Tests  in  Analysis 


Young's  Modulus,  psi 


6  to  10  x  10 


3  x  10 


Poisson's  Ratio 


** 

C  ,  ps 


** 

<t>  ,  deg. 


Tensile  Strength,  psi 


0.16  to  0.21 


4,000 


500  to  1,500 


B.  Faults  "A"  and  "B"  (Assumed) 


Fault 


Normal  Stiffness  |  Shear  Stiffness 
pc 
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with  the  appropriate  sequences.  In  this  case  study,  the  concrete 
ribs  were  installed  after  roof  excavation,  and  only  the  subse¬ 
quent  excavations  caused  stresses  and  strains  to  develop  in  the 
roof  ribs.  Following  the  actual  construction  sequence,  the 
sequential  stress  and  strain  developed  in  the  rock  mass  and 
supports  could  automatically  be  accounted  for. 

Presentation  and  Discussion  of  Results 

The  results  of  the  analysis  presented  in  Fig.  57  show  the  dis¬ 
tribution  of  maximum  compressive  strain  computed  in  the  concrete 
rib.  It  may  be  noted  that  considerably  larger  strains  developed 
at  the  downstream  side  as  compared  to  the  strains  at  the  upstream 
side.  Also  shown  in  Fig.  57  are  the  measured  strains  at  the 
crown,  downstream  and  upstream  sides.  The  analysis  also  indi¬ 
cated  that  a  tensile  "cracked"  zone  developed  at  the  upstream 
edge  of  the  concrete  rib.  The  comparison  indicates  that  the 
observed  and  computed  strains  in  the  concrete  rib  are  in  fairly 
good  agreement. 

Also  shown  in  Fig.  57  are  the  computed  lateral  wall  deflections. 

A  maximum  deflection  of  1.7  inches  was  calculated  near  the 
upper  portion  of  the  downstream  wall,  and  0.5  inches  on  the 
upstream  wall.  No  data  of  observed  wall  deflections  were  avail¬ 
able  for  comparison.  However,  the  observed  wall  deflections 
developed  after  the  excavation  was  essentially  completed  indi¬ 
cate  that  movements  on  the  djwnstream  wall  were  greater  than 
those  on  the  upstream  wall,  a  result  similar  to  that  obtained 
from  the  computations.  The  larger  strains  in  the  concrete  rib 
and  the  larger  wall  deflection  at  the  downstream  side  than  those 
at  the  upstream  side  indicate  that  the  presence  of  the  fault  "B" 
had  a  significant  effect  on  the  behavior  of  the  excavation. 

Evaluation  of  the  stress  distribution  in  the  rock  mass  sur¬ 
rounding  the  excavation  showed  that  the  stress  levels  were  well 
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Fig.  57  Comparison  of  Observed  and  Predicted  Behavior 
of  Tumut  I  Underground  Power  Station 
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below  the  yield  strength  computed  by  the  strength  parameters 
prescribed,  and  the  overall  stability  of  the  rock  mass  was 
maintained  throughout  the  excavation.  The  results  of  the  analy¬ 
sis  indicated  that  a  50-foot  section  of  the  fault  "A”  at  the 
upstream  side  immediately  above  the  roof  of  the  excavation 
failed  in  shear  aftor  the  first  stage  of  excavation  (see  Fig. 

53).  However,  subsequent  stress  redistribution  and  instal¬ 
lation  of  the  concrete  ribs  prevented  any  further  failure  along 
the  fault  "A". 

In  summary,  the  analysis  of  the  Tumut  I  underground  machine 
hall  indicated  that  the  observed  behavior  of  the  excavation 
following  a  complicated  excavation  sequence  could  be  predicted 
with  a  reasonable  accuracy  using  the  general  computer  program 
that  has  been  developed.  The  major  difficulty  in  analysis, 
however,  lies  in  the  determination  of  the  distribution  of 
major  geologic  discontinuities  and  their  stress  deformation 
characteristics . 

ANALYSIS  OF  A  ROCK  TUNNEL,  WASHINGTON  D.C.  METRO 
Construction  of  rock  tunnels  for  the  Washington  D.C.  Subway 
(METRO)  has  been  described  by  Mahar,  Gau  and  Cording  (1972), 
and  Bawa  and  Bumanis  (1972).  Due  to  the  detailed  documentation 
of  the  geologic  conditions  and  the  performance  data  of  the 
tunnel  excavations,  it  is  believed  that  the  tunnel  excavations 
of  METRO  would  provide  excellent  case  histories  for  this  study 
to  verify  the  reliability  of  the  general  computer  program 
developed  for  evaluation  of  stability  of  underground  excavations. 
General  geologic,  excavation  and  support  conditions,  and  the 
results  of  instrumentation  on  rock  movements  during  excavations 
of  a  rock  tunnel  were  provided  to  us  by  Dr.  E.  J.  Cording  (1973) 
and  J.  W.  Mahar  (1973)  of  University  of  Illinois,  Urbana.  The 
general  geologic,  excavation  and  support  conditions  are  briefly 
described  in  the  following  section. 
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General  Geologic  Conditions 

The  rock  tunnel  analyzed  was  driven  through  a  foliated  rock- 
schistose  gneiss  of  quartz-mica  composition.  Average  rock 
quality,  defined  as  the  RQD  of  the  rock  core,  ranges  between 
fair  to  good,  except  in  the  shear  zones  where  rock  quality  is 
poor  to  very  poor.  The  significant  features  of  the  rock  are: 
(1)  the  continuous,  smooth  joint  planes  which  form  large  rock 
blocks,  and  (2)  highly  continuous  shear  zones  which  parallel 
the  rock  foliation. 

The  major  features  of  the  rock  structure  observed  at  the  rock 
tunnel  consist  of  foliation,  eight  major  shear  zones,  joints 
in  seven  principal  orientations  designated  as  Set  Nos.  1,  2L, 

2H ,  3H,  4L,  and  4H.  The  orientation  of  the  joints  is  shown 

in  Fig.  58.  Rock  foliation  is  moderate  to  well  developed  and 
strikes  sub-parallel  to  the  long  axis  of  the  tunnel  (N15°W)  an(j 
dips  60°  to  70°  west. 

The  major  shear  zones,  all  of  which  are  oriented  sub-farallel 
to  rock  foliation  or  Joint  Set  1,  strike  10°  to  20°  right  of 
tunnel  axis  and  dip  50c  to  60°  west.  These  zones  are  generally 
1  to  5  feet  in  width  and  spaced  10  to  50  feet  apart.  The  most 
prominent  features  within  the  shear  zones  are  layers  of  gouge 
and/or  broken  rock.  The  layers  are  generally  1  to  6  inches 
wide,  highly  continuous  and  are  planar  to  slightly  wavy.  The 
gouge  consists  of  a  sandy,  clayey  material  and  is  generally 

1  to  2  inches  thick.  Rock  fragments  are  generally  less  than 

2  inches  in  size.  Slickensides  occur  throughout  the  gouge  and 
along  the  boundaries  of  the  rock  fragments.  The  distribution 
of  the  shear  zones  as  shown  on  the  cross-section  analyzed  is 
given  in  Fig.  59. 

Joints  and  slickensided  joints  designated  as  Joint  Set  1  having 
the  same  altitude  as  the  major  shear  zones  are  prominent 
throughout  the  tunnel.  These  joints  are  highly  continuous, 
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Fig.  59  Finite  Element  Idealization  of  a  Rock  Tunnel,  Washington  D.C.  Metro 
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smooth  and  planar.  The  slickensided  joints  generally  contain 
a  talc  and  chlorite  filling  1/8  to  1/2  inch  thick.  The  average 
spacing  of  Joint  Set  1  is  1  to  3  feet. 

Joints  in  six  other  principal  orientations  are  generally  tight, 
planar,  and  continuous.  These  joints  are  not  as  commonly 
sheared  or  filled  with  gouge  as  the  joints  of  Set  No.  1.  How¬ 
ever,  these  joints  may  contain  up  to  1/4  inch  of  talc  and 
chlorite  and  may  be  wet,  particularly  when  the  joints  are 
located  in  the  vicinity  of  foliation  shear  zones. 

General  Excavation  and  Support  Conditions 

The  crown  of  the  rock  tunnel  analyzed  in  this  study  is  approxi¬ 
mately  60  feet  below  the  ground  surface.  The  ground  cover  con¬ 
sists  of  a  30-foot-thick  layer  of  soil  immediately  below  the 
ground  surface  and  a  30- foot-thick  rock  separated  by  1  to  2 
feet  of  weathered  rock.  The  tunnel  was  driven  in  several 
stages:  the  pilot  tunnel  and  Stages  1,  2a,  and  2b. 

The  pilot  tunnel  was  driven  as  a  6  foot  by  8  foot  exploratory 
drift  through  the  full  length  of  the  station.  After  completion 
of  the  pilot  tunnel,  three  rock  bolts  (24  feet  long  and  1-1/8 
inches  in  diameter)  were  installed  every  5  feet  in  the  crown 
of  the  tunnel.  Prior  to  driving  Stage  1,  bearing  plates  of 
most  of  the  bolts  were  tightened  and  the  first  6  feet  of  these 
bolts  were  grouted  with  cement. 

The  Stage  1  drift  was  driven  as  a  box-shaped  opening.  The  drift 
at  the  cross-section  analyzed  was  a  18 - foot-wide-by- 24- foot-high 
opening.  The  drift  was  supported  with  shotcrete,  rock  bolts, 
and  steel  ribs.  The  heading  of  the  Stage  1  excavation  was 
initially  supported  with  a  layer  of  shotcrete  having  an  average 
thickness  of  2  inches.  Steel  ribs  consisting  of  14  WF  posts 
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which  did  not  provide  lateral  support  to  side  walls  and  8  WF 
beams  were  placed  every  5  feet.  After  the  steel  ribs  had  been 
installed,  four  rock  bolts  were  installed  in  the  crown  of  the 
Stage  1  drift,  two  on  either  side  of  the  pilot  tunnel.  These 
bolts  spaced  5  feet  of  center  and  installed  within  4  feet  of 
the  face  were  fully  grouted  with  resin. 

The  2a  and  2b  drifts  were  driven  in  approximately  10  feet  by 
10  feet  openings  in  5  feet  advances.  The  thickness  of  the  rock 
pillar  between  the  Stage  1  drift  and  the  side  drifts  at  the 
cross-section  analyzed  was  approximately  13  feet. 

Idealization  of  Tunnel  Excavation 

Finite  Element  Idealization  -  The  finite  element  idealization 
of  the  tunnel  excavation  is  shown  in  Fig.  59.  The  idealization 
of  the  geologic  profile  includes  a  number  of  shear  zones  and 
Joint  Sets  1,  3L,  and  3H  as  projected  from  the  geologic  map 
on  to  the  cross-section  analyzed.  Joint  Sets  2L,  2H,  4L,  and 
4H  were  not  present  on  the  cross-section  because  the  strikes 
of  these  joints  are  approximately  perpendicular  to  the  axis  of  the 
tunnel.  The  excavation  was  idealized  as  a  3-stage  excavation: 

Stages  1,  2a,  2b.  The  pilot  drift  was  considered  to  be  a  part 
of  Stage  1  excavation.  During  excavation  of  the  pilot  drift 
and  Stage  1  drift,  installation  of  seven  rock  bolts  at  the 
crown  was  simulated  by  application  of  equivalent  nodal  point 
forces  of  4000  lbs/ft  at  the  bearing  plate  and  the  anchor  of 
each  rock  bolt.  Idealization  of  the  grouted  rock  bolts  may 
be  improved  by  considering  the  rock  bolts  as  one-dimensional 
bar  elements  with  the  same  material  properties  as  those  of  the 
rock  bolts.  The  2-inch-thick  layer  of  shotcrete  and  the  steel 
ribs  were  not  simulated  in  the  analysis.  As  noted  in  Fig.  59, 
the  upper  30- feet- thick  layer  of  soils  immediately  below  the 
ground  surface  was  replaced  by  applying  a  uniform  pressure 
equivalent  to  the  overburden  pressure  of  3600  psf  on  the  upper 
boundary  of  the  rock  cover  in  order  to  minimize  the  number  of 
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elements  and  nodes  required  in  the  idealization.  The  total 
number  of  elements  and  nodes  used  were  863  and  ."*86,  respectively. 

Initial  State  of  Stress  -  No  stress  measurements  were  made  at 
the  site.  However,  Cording  (1973)  expressed  the  opinion  that 
there  is  no  high  horizontal  stress  existing  at  the  site  and 
the  vertical  stress  is  approximately  equal  to  the  overburden 
pressure.  In  the  parametric  study  to  be  described  later,  two 
initial  states  of  stress  were  assumed.  The  vertical  stress  was 
assumed  equal  to  the  overburden  pressure  and  the  ratios  of 
horizontal  to  vertical  stress  were  0.6  and  0.8  for  two  initial 
stress  conditions. 

Material  Properties  -  No  test  data  were  available  for  determina¬ 
tion  of  material  properties  for  intact  rocks,  shear  zones  and 
j jints  present  in  the  geologic  profile.  However,  reasonable 
values  were  assumed  for  deformation  moduli  and  strength  parameters 
for  the  intact  rock  and  shear  zones,  and  for  deformability  and 
shear  strength  of  the  joints,  and  a  parametric  study  conducted 
to  select  the  properties  for  more  detailed  analysis.  The 
assumed  material  properties  used  in  the  parametric  study  (Cases 

A,  B  and  C)  are  summarized  in  Table  5.  The  deformation  modulus 
of  the  intact  rock  was  assumed  to  be  1,000,000  psi  for  all 
three  cases,  and  1,000,000  psf  for  the  shear  zones.  The  values 
of  the  Poisson’s  ratio  were  assumed  to  be  0.15  and  0.3  for  the 
intact  rock  and  the  shear  zones,  respectively.  For  Cases  A  and 

B,  the  normal  stiffness  of  the  joints  were  assumed  to  be  1  x  10^ 
pci  and  the  shear  stiffness  to  be  5  x  106  pci,  and  the  angle 

of  shearing  resistance  equal  to  25  degrees  with  no  cohesion.  The 
normal  and  shear  stiffnesses  for  the  joints  for  Case  C  weie 
100%  higher  than  those  for  Cases  A  and  B  and  the  angle  of  shearing 
resistance  was  reduced  to  20  degrees. 
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Presentation  and  Discussion  of  Results 

Three  cases  were  analyzed  in  the  parametric  study  to  examine 
the  effect  of  the  initial  stress  conditions  and  the  deform- 
ability  and  strength  properties  of  the  joints  on  the  computed 
movements  surrounding  the  tunnel  due  to  Stage  1  excavation. 

The  results  of  the  parametric  study  are  summarized  in  Table  6. 
Comparing  Cases  A  and  B  for  the  elastic  solution,  when  the 
ratio  of  the  horizontal  to  vertical  stress  decreases  from  0.8 
(Case  A)  to  0.6  (Case  B)  ,  the  movement  at  the  crown  increases 
151  while  the  movement  on  the  side  walls  decrease  20%  to  25%. 

In  the  non-linear  solution  in  which  effects  of  joint  and  shear 
zone  failure  were  considered,  the  movements  at  the  crown  and 
the  east  wall  for  Case  B  were  10%  higher  than  those  for  Case  A, 
indicating  that  more  elements  would  fail  under  low  horizontal 
stress  conditions.  Comparing  Cases  A  and  C,  it  may  be  noted 
that  while  the  joint  stiffnesses  increased  100%,  the  movements 
decreased  10  to  20%  indicating  the  presence  of  the  shear  zones 
might  have  significant  effects  on  the  behavior  of  the  excavation. 
It  is  interesting  to  note  that  for  all  three  cases,  the  movement 
on  the  west  wall  remained  about  the  same  for  both  elastic  and 
non-linear  solutions. 

The  detailed  analysis  was  conducted  using  the  material  properties 
and  the  initial  stress  conditions  assumed  for  Case  A.  The 
results  of  the  detailed  analysis  of  the  3-stage  excavation  are 
summarized  in  Table  7  and  Figs.  60  and  61.  Table  7  and  Fig. 

60  summarize  the  computed  movements  at  the  crown  and  side  walls 
of  the  Stage  1  drift  due  to  each  stage  of  excavation.  The 
computed  movement  at  the  crown  increased  from  0.27  inches  due 
to  the  Stage  1  excavation  to  0.41  inches  at  the  end  of  the 
Stage  2b  excavation.  The  total  movement  observed  at  the  crown 

r 

was  0.42  inches.  The  computed  movement  on  the  east  wall 
increased  from  0.52  inches  due  to  the  Stage  1  excavation  to 
0.61  inches  at  the  end  of  Stage  2b  excavation.  The  total  movement 
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observed  on  the  east  wall  was  0.67  inches.  The  computed  move¬ 
ment  on  the  west  wall  was  0.24  inches  due  to  the  Stage  1 
excavation  and  decreased  slightly  at  the  end  of  the  Stage  2b 
excavation.  Also  shown  on  Table  7  are  the  movements  computed 
from  the  elastic  solution  of  the  3-stage  excavation.  The  crown 
movement  computed  was  0.26  inches  as  compared  to  0.41  inches 
computed  from  the  nonlinear  solution.  The  east  wall  movement 
computed  was  0.51  inches  as  compared  to  0.61  inches  computed 
from  nonlinear  solution.  The  west  wall  movement  computed  was 
slightly  less  than  that  computed  from  the  nonlinear  solution. 

Figure  61  illustrates  the  comparison  between  the  computed  and 
observed  movements  due  to  the  excavation  of  the  rock  tunnel 
analyzed.  The  computed  total  move  *nts  at  the  excavated  surface 
are  generally  in  close  agreement  with  those  observed,  except  the 
one  on  the  west  walJ  for  which  the  larger  movement  was  measured 
near  the  surface  due  to  loosening  of  near-surface  rock  blocks. 
However,  a  significant  portion  of  movements  was  computed  at 
the  anchor  points  of  the  extensometers ,  indicating  that  the 
computed  movements  within  the  instrumented  rock  zones  are  less 
than  those  measured.  It  is  expected  that  the  results  of  the 

analysis  could  be  improved  and  would  tend  to  indicate  failure 

■ 

and  loosening  of  larger  portions  of  shear  zones  and  joint 
blocks,  similar  to  the  behavior  observed  in  the  field,  if 
lower  values  of  the  friction  angles  for  shear  zones  and  joints, 
and  higher  values  of  modulus  for  shear  zones  are  used  in  the 
analysis . 

The  results  of  the  analysis  of  the  rock  tunnel  of  the  Washington 
D.C.  METRO  indicate  that  the  behavior  of  the  rock  mass  formed 
by  various  continuous  joint  sets  and  shear  zones  due  to  under¬ 
ground  excavations  could  be  predicted  with  a  reasonable  degree 
of  accuracy.  Although  the  properties  of  significant  geologic 
features;  e.g.,  joints  and  shear  zones,  present  in  the  rock 
mass  were  not  available  for  the  analysis,  it  was  possible  to 
determine  reasonable  material  properties  from  a  parametric 
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study  and  the  observed  performance  of  the  underground  excavation. 
The  analysis  was  considered  to  be  useful  in  understanding  the 
behavior  of  the  excavation  in  that  particular  rock  mass.  The 
material  properties  utilized  can  be  employed  to  predict  the 
response  of  the  rock  mass  around  further  tunnel  excavations  in 
similar  geologic  conditions. 

CONCLUSIONS  AND  RECOMMENDATIONS 

For  the  purpose  of  evaluating  the  capabilities  and  illustrating 
the  use  of  the  computer  code  developed,  studies  on  a  number  of 
well  documented  model  tests  and  case  histories  of  underground 
openings  were  analyzed.  These  included  the  analysis  of  model 
tests  on  lined  and  unlined  openings  in  jointed  rock,  and  the 
analysis  of  Tumut  I  underground  power  station  and  a  rock  tunnel 
of  Washington,  D.C.  (METRO)  Subway. 

The  conclusions  drawn  from  this  evaluation  are  as  follows: 

1.  The  major  problem  in  utilizing  the  computer  code 
developed  to  the  analysis  of  practical  problems  is 
the  lack  of  information  on  the  properties  of  the 
rock  mass  especially  with  respect  to  the  location 
and  deformation  characteristics  of  geological  dis¬ 
continuities  . 

2.  The  properties  of  geological  discontinuities  can  be 
determined  through  a  parametric  study  using  various 
combinations  of  material  properties  and  comparing 
the  results  with  limited  aspects  of  observed 
performance. 

3.  Utilizing  the  properties  selected  in  (2)  additional 
aspects  of  the  behavior  of  excavation  in  rock  can  be 
predicted  with  reasonable  accuracy. 
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4.  The  program  can  be  calibrated  in  terms  of  material 
properties  in  the  initial  phases  of  an  excavation 
and  then  utilized  to  predict  future  performance. 

5.  The  results  of  this  study  indicate  that  if  the  loca¬ 
tion  and  properties  of  geologic  discontinuities  can 
be  defined  then  the  computer  code  developed  can  be  a 
valuable  aid  to  the  design  of  excavations  in  rock. 

Recommendations  for  Future  Research 

Although  studies  of  a  limited  number  of  the  case  histories 
indicated  that  the  analytical  models  developed  under  this 
contract  could  predict  the  behavior  of  underground  openings 
with  a  reasonable  accuracy,  more  case  history  studies  are 
required  to  fully  evaluate  the  capabilities  and  the  improve¬ 
ments  required  for  the  computer  code  developed. 
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APPENDIX  A 

A  COMBINED  COMPUTER  PROGRAM  USING  FINITE 
ELEMENT  TECHNIQUES  FOR  ELASTO- PLASTIC ,  JOINT 
PERTURBATION  AND  NO  TENSION  ANALYSIS  OF 
SEQUENTIAL  EXCAVATION  AND  CONSTRUCTION  OF 
UNDERGROUND  OPENINGS  IN  ROCK 
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A  COMBINED  COMPUTER  PROGRAM 
USING  FINITE  ELEMENT  TECHNIQUES  FOR  ELASTO-PLASTIC 
JOINT  PERTURBATION  AND  NO  TENSION  ANALYSIS  OF 
SEQUENTIAL  EXCAVATION  AND  CONSTRUCTION  OF  UNDERGROUND 

OPENINGS  IN  ROCK 


Identification 


The  program  which  consists  of  a  main  program  and  15  subroutines 
(NPSTRS,  STIFF,  MODIFY,  QUAD,  TRISTF ,  JTSTIF,  BANSOL,  STRESS, 

INITST,  PRINST,  LOAD,  JTSTR,  EPLAST ,  STRSTR,  NPFORC)  is  a 
modification  of  the  computer  program  developed  and  documented 
in  the  report,  "A  Theoretical  Method  for  Evaluating  Stability 
of  Openings  in  Rock,"  by  C.  Y.  Chang  and  K.  Nair,  U.S.  Bureau 
of  Mines  Contract  No.  H0210046  (April  1972).  The  major 
improvements  and  modifications  have  already  been  discussed 
elsewhere  in  this  report. 

Purpose 

The  combined  program  has  been  developed  to  take  into  account 
the  actual  construction  and  excavation  sequences  which  are 
important  factors  to  be  considered,  especially  in  non-linear 
materials.  The  rock  mass  may  consist  of  joints,  faults,  bedding 
planes  and  other  geologic  discontinuities.  The  intact  rock  may 
be  incapable  of  sustaining  any  tensile  load  and  exhibit 
elastic-perfectly  plastic  behavior. 

Sequence  of  Operation 

(a)  The  main  program  handles  the  initial  input  and  monitors 
the  calling  of  the  subroutines  in  a  specified  order  as 
shown  in  Fig.  Al.  If  specified  for  the  last  iteration 
of  the  last  step  in  analysis  stresses,  excess  stresses 
to  be  redistributed,  nodal  point  displacements  and  yield 
functions  are  punched  onto  cards  to  be  used  for  restart¬ 
ing  computation.  This  allows  one  to  monitor  the  results 
as  analysis  proceeds,  without  loss  of  computer  time. 

(b)  Subroutine  NPSTRS  computes  stresses  at  nodes  on  the 
excavated  boundary  from  stresses  in  surrounding  elements. 

(c)  Subroutine  STIFF  assembles  the  general  stiffness  matrix 
for  the  entire  structure,  adds  the  concentrated  loads  at 
the  nodal  points,  and  modifies  the  stiffness  matrix  for 
the  boundary  conditions. 

(d)  In  Subroutine  QUAD  the  stiffness  of  a  two-dimensional 
element  is  formulated. 

(e)  Subroutine  JTSTIF  forms  the  stiffness  matrix  for  each 
joint  element. 
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( f)  Subroutine  TRISTF  forms  the  stiffness  matrix  for  triangular 
sub-elements  and,  if  specified,  element  loads  due  to  gravity 
are  calculated. 

(g)  Subroutine  MODIFY  modifies  the  stiffness  matrix  for  the 
boundary  conditions. 

(h)  Subroutine  LOAD  calculates  equilibrating  nodal  point  forces 
due  to  gravity,  if  specified,  and  for  excess  stresses 
computed  in  Subroutine  EPLAST  for  elasto-plastic  and/or 

no  tension  materials. 

( i)  Subroutine  BANSOL  solves  the  simultaneous  equations  repre¬ 
senting  the  structural  stiffness  matrix  and  the  structural 
load  vector  for  nodal  point  displacements. 

( j)  Subroutine  STRESS  calculates  incremental  stresses  and 
strains,  cumulates  stresses,  and  prints  stresses  and  strains 
for  two-dimensional  elements. 

( k)  Subroutine  JTSTRS  calculates  and  prints  normal  and  tangen¬ 
tial  displacements  (cumulative  and  incremental)  and  excess 
normal  and  tangential  stresses  to  be  redistributed  by 
comparing  stress  with  strength  for  joint  elements.  The 
equilibrating  nodal  point  forces  are  also  computed  from  the 
excess  stresses  and  stored  for  the  next  iteration. 

( l)  Subroutine  EPLAST  calculates  yield  functions  and  elasto- 
plastic  stres s - strain  relation  for  those  two-dimensional 
elements  in  yield.  The  excess  stresses  to  be  redistributed 
are  computed  as  a  difference  between  changes  in  stress 
calculated  from  the  elastic  stress-strain  relation  and 
those  calculated  from  the  elasto-plastic  stress-strain 
relation . 

(m)  Subroutine  INITST  generates  initial  stresses  under  free- 
f ield  conditions  . 

( n)  Subroutine  PRINST  calculates  magnitudes  and  directions  of 
the  principal  stresses  and  strains. 

( o)  In  Subroutine  STRSTR  the  constitutive  law  for  the  material 
is  formulated. 

( P)  In  Subroutine  NPFORC  the  nodal  point  forces  due  to  boundary 
pressures  are  calculated. 

Output 

The  data  describing  the  finite  element  configuration,  the  material 
properties  and  pressures  applied  to  the  excavated  face  to  simulate 
excavation  for  the  opening  are  printed  after  being  read.  Nodal 
point  displacements  (incremental  and  cumulative),  stresses,  strains 
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and  yield  functions  for  two-dimensional  elements;  normal  and 
tangential  stresses,  normal  and  tangential  displacements 
(incremental  and  cumulative)  for  joint  elements,  are  printed 
after  each  increment  or  iteration.  If  specified,  for  the 
last  iteration  of  the  last  increment  in  the  last  construction 
step  specified  in  an  analysis,  stresses,  strains  and  excess 
stresses  to  be  redistributed  for  two-dimensional  elements, 
normal  and  tangential  stresses  for  joint  elements,  nodal  point 
displacements  and  yield  functions  for  two-dimensional  elements 
are  punched  onto  cards  to  be  used  for  restarting  computation. 

Input  Data  Procedure 

1st  CARD  TYPE:  FORMAT  (8A10)  (One  Card) 

Cols  2-80  Identifying  information  to  be  printed  with 
results . 


2nd  CARD  TYPE:  FORMAT  (315,  2FI0.2,  15,  2FI0.5,  415) 

(One  Card) 


1-5 

NUMNP 

-  Number  of  nodal  points 
(maximum  999) 

6-10 

NUMEL 

-  Number  of  element' 

(maximum  900) 

11-15 

NU'fMAT 

-  Number  of  different  materials 
(maximum  12) 

16-25 

ACELX 

-  Acceleration  in  X-direction 

26-35 

ACELY 

-  Acceleration  in  Y-direction 

36-40 

NRES* 

-  =  -1,  Residual  stresses  gener 
which  residual  load  is  ' 

=  0,  Residual  stresses  generated, 
but  residual  load  is  zero. 


=  1,  Residual  stresses  read  as  input, 
from  which  residual  load  is 
generated . 

=  2,  Residual  stresses  read  as  input, 
but  residual  load  is  zero. 


=  3,  Residual  stresses  will  be  computed 
for  the  purpose  of  calculating 
nodal  forces  along  excavated  boundary. 

41-50  REFPR  -  Vertical  stress  at  the  reference  point. 


*If  NREAD  =  1,  NRES  should  not  be  greater  than  zero. 

If  NRES  =  -1  or  1,  gravity  turn-on  analysis  is  performed. 


WOODWARD  IUNDGREN  S,  ASSOCIATES 


A-  6 


51-60  DEPTH  -  Y- ordinate  at  the  reference  point. 

61-65  NANALY  -  ■  0,  Analysis  using  stress  transfer 

techniques  with  constant 
initial  stiffness. 

NANALY  -  *  1 ,  Analysis  using  stress  transfer 
techniques  with  updating  ele¬ 
ment  stiffness  at  each  incre¬ 
ment  of  load. 


66-70  NCONST  -  Total  number  of  construction  steps 

simulated  in  analysis. 

71-75  NPUNCH  -  =  0,  Data  will  not  be  punched  out 

at  th<i  last  iteration. 


=  1,  Data  will  be  punched  out  at 

the  last  iteration  of  the  last 
increment  at  the  last  construe 
tion  step. 

76-80  NREAD  -  *  0 ,  No  data  from  previous  compu¬ 
tation  will  be  read  as  input. 

*  1,  Data  from  last  increment  are 
read  as  input. 


3rd  CARD  TYPE:  FORMAT  (215)  (One  Card) 

Cols.  1-5  MJ0INT  -  Total  number  of  material  types  for 

joints  (maximum  12) 

6-10  MTENS  -  Total  number  of  material  types  that 

can  sustain  tension. 


4th  CARD  TYPE:  FORMAT  (1615)  (Omit  this  card  if  MJOINT  *  0 

on  3rd  Card  Type) 

Cols.  1-5  MJNT(I)  -  Material  type  number  for  joint 

elements . 


6-10  Same 
11-15  - 

5th  CARD  TYPE:  FORMAT  (1615)  (Omit  this  card  if  MTENS  -  0 

on  3rd  Card  Type) 

Cols.  1-5  MNTEN(I)  -  Material  type  number  which  can 

sustain  tension. 

6-10  Same 
11-15  - 
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6th  CARD  TYPE: 


FORMAT 
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(15,  2F10.5)  (One  Card) 


Cols.  1-5 

MTYPE 

-  Material  type  number. 

6-15 

RO(MTYPE) 

-  Mass  density  of  this  material 
type. 

16-20 

AKO (MTYPE) 

-  Ratio  of  horizontal  to  vertical  stress 
under  initial  stress  conditions. 

7th  CARD  TYPE 

[:  FORMAT  (8F10.5,  15) 

Cols.  1-10 

E (1 ,  MTYPE) 

-  Tensile  strength  for  normal 
materials  or  normal  stiffness 
for  joint  materials. 

11-20 

E (2 ,  MTYPE) 

-  Modulus  in  compression  for  normal 
materials  or  shear  stiffness 
for  joint  materials. 

21-30 

E (3 ,  MTYPE) 

-  Poisson's  ratio  for  normal 
materials  or  cohesion  for  joint 
materials . 

31-40 

E (4 ,  MTYPE) 

-  Modulus  in  tension  for  normal 
materials  or  angle  of  friction 
for  joint  materials  (degrees) 

41-50 

E (5 ,  MTYPE) 

-  Cohesion  for  normal  materials 
or  maximum  allowable  closure 
(input  as  negative)  for  joint 
materials . 

51-60 

E (6 ,  MTYPE) 

-  Angle  of  friction  for  normal 
materials  (degrees) 

61-65 

NTEST 

-  Type  of  Test  -  0,  if  c  and  J8 
obtained  from  triaxial  test 

■  1 ,  if  c  and  0 

obtained  from  plane  strain  test. 

66-75 

CRAC (MTYPE) 

-  Fraction  of  tensile  strength  which 
the  material  is  allowed  to  take 
after  tension  failure. 

Repeat  6th  and  7th  card  types  for  all  material  types. 

8th  CARD  TYPE:  FORMAT  (15,  F5.0,  4F10.0)  (One  card  for 

each  nodal  point) 

Cols.  1-5  N  -  Nodal  point  number. 
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6-10  CODE  (N)  -  Number  which  indicates  if  displace¬ 
ments  or  forces  are  to  be  specified. 

■  0  UR  is  the  specified  X-load  and 
UZ  is  the  specified  Y-load 

-  1  UR  is  the  specified  X-displace- 
ment  and  UZ  is  the  specified 
Y-load 

*  2  UR  is  the  specified  X-load  and 
UZ  is  the  specified  Y-displace- 
ment 

=3  UR  is  the  specified  X-displace- 
ment  and  UZ  is  the  specified 
Y-displacement 


Cols.  11-20 

R(N) 

-  X-ordinate 

21-30 

Z  (N) 

-  Y-ordinate 

31-40 

UR(N) 

-  X-ioad  or  displacement 

41-50 

UZ  (N) 

-  Y-load  or  displacement 

Nodal  points  must  be  numbered  in  sequence.  If  nodal  point  numbers 
are  omitted,  those  omitted  are  generated  automatically  at  equal 
spacings,  between  those  specified  and  CODE(N)  is  assigned  zero. 

The  first  and  last  nodal  points  must  be  specified. 

9th  CARD  TYPE:  FORMAT  (615)  (One  card  for  each  element) 


1-5 

M 

-  Element  number 

6-10 

IX(M, 1) 

-  Nodal  point 

I 

11-15 

IX(M, 2) 

-  Nodal  point 

J 

16-20 

IX (M, 3) 

-  Nodal  point 

K 

21-25 

IX(M, 4) 

-  Nodal  point 

L 

26-30 

IX(M, 5) 

-  Material  number 

The  nodal  point  numbers  must  be  numbered  consecutively  proceeding 
counterclockwise  around  the  elements.  The  nodal  point  numbers 
for  any  element  must  not  differ  by  more  than  44.  If  element 
numbers  are  omitted,  those  missing  will  be  generated  by  incre¬ 
menting  the  element  number  and  each  nodal  point  number  (I,  J,  K 
and  L)  by  one,  and  assigning  the  same  material  number  as  the  last 
element  specified.  The  first  and  last  elements  must  be  specified. 
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Triangular  elements  are  also  permissible,  and  are  identified 
by  repeating  the  last  nodal  point  number  (i.e.,  I,  J,  K,  K). 

For  joint  elements,  nodal  points  must  be  numbered  I,  J,  K,  L 
counterclockwise  proceeding  along  length  of  joint  from  I  to  J 
and  along  length  from  K  to  L.  Nodal  points  I  and  L  (J  and  K) 
have  different  numbers  but  identical  coordinates. 

One-dimensional  elements  are  also  permissible  and  are  identified 
by  the  node  number  sequence  (I,  J,  J,  I). 

10th  CARD  TYPE:  FORMAT  (15,  4E15.5)  (One  card  for  each 

element) 

Cols.  1-5  N  -  Element  number 


6-20 

STRS (N , 1 ) 

-  Initial 

stress 

O 

X 

21-35 

STRS (N , 2 ) 

-  Initial 

stress 

O 

y 

36-50 

STRS (N, 3) 

-  Initial 

stress 

T 

xy 

51-65 

STRS (N, 4) 

-  Initial 

stress 

az 

This  card  type  is  neglected  if  NRES  <  0  or  NRES=3  on  the 
2nd  card  type. 

11th  CARD  TYPE:  FORMAT  (15) 

Cols.  1-5  NJT  -  Total  number  of  joint  elements. 

12th  CARD  TYPE:  FORMAT  (2F20.5,  15) 

Cols.  1-20  FN ( I )  -  Normal  stress  across  joint  element 

NEJT(I) 

21-40  FT ( I )  -  Tangential  stress  across  joint 

element  NEJT(I) 

41-45  NEJT(I)  -  Element  number  for  joint  element 

Repeat  12th  card  type  for  all  joint  elements. 

11th  and  12th  card  types  are  neglected  in  MJOINT  =  0  on  the 
3rd  card  type  or  NRES  <  0  or  NRES  =  3  on  the  2nd  card  type. 

13th  CARD  TYPE:  (315) 

Cols.  1-5  NCPSNT  -  Present  construction  sequence  number 

6-10  NPRSNT  -  Present  load  increment  number 

11-15  ITPSNT  -  Present  iteration  number 

14th  CARD  TYPE:  (8A10) 

Cols.  2-80  TITLE  -  The  information  regarding  this 

construction  sequence  number  to 
be  printed  out. 

WOODWARD  IUNDGREN  &  ASSOCIATES 


A-  10 


15th  CARD  TYPE:  (815) 


1-5 

NERSP 

-  Number  of  elements  to  be  excavated  and/or 
for  structural  support. 

6-10 

NUMPC 

-  Number  of  pressure  cards. 

11-15 

NPF 

-  Number  of  nodal  points  at  which  forces 
are  applied. 

16-20 

NPCAV 

-  Number  of  nodal  points  along  current 
excavated  face. 

21-25 

NP 

-  Number  of  load  increments  by  which  boundary 
pressures  and  pressures  computed  for 
excavation  simulation  will  be  divided  into 
smrll  load  increments.  The  magnitude  of 
me rement  is  to  be  specified  on  the  card  type 

26-30 

NGLD 

-  =  0  Not  a  gravity  turn-on  analysis  step. 

=  1  Present  step  is  gravity  turn-on  to 
obtain  initial  stresses. 

31-35 

MTRM 

-  Material  type  for  excavated  elements. 

36-40* 

NSPT 

-  Index  indicating  if  there  is  any  element 
to  be  converted  to  liner  for  current 

construction  step. 

=0  if  there  is  no  element  to  be  converted 
to  liner 

=  1  if  there  are  some  elements  to  be 
converted  to  liner 

16th  CARD  TYPE:  (1615)  (Neglected  if  NERSP  =  0  on  the  15th 

card  type) 

This  card  type  carries  the  numbers  of  all  elements  removed 
or  added  and  their  changed  material  type.  As  many  cards 


as  are  required  to 

be  provided. 

Cols.  1-5 

NE  (I ) 

-  Element  number. 

6-10 

MT  ( I ) 

-  New  material  type  for  this  element. 

11-15 

MSP  (I) 

-  Material  type  of  liner  if  the  element  is 
to  be  "excavated"  first  and  then  converted 
to  the  liner.  MSP(I)=MT(I)  if  NSPT=0  on 
the  15th  card  type  or  the  element  not  to 
be  "converted"  to  the  liner. 

16-20 

21-25 

26-30 

1 

l 

j 

-  Same  as  above. 

17th  CARD  TYPE:  FORMAT  (1615) 

Cols.  1-5  IJBC(L,1)  -  Nodal  point  number  I  along  the  boundary 

IJ  where  the  boundary  pressure  is  applied. 


*See  Table  A-l  for  significance  of  the  index. 
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6-10  IJBC  (L,2)  -  Nodal  point  J  along  the  boundary 

IJ. 


11-15' 

16-20 

21-25' 

26-30 


Same  as  above;  two  nodal  point 
numbers  for  each  boundary  where 
the  boundary  pressure  is  applied. 


As  shown  in  Fig.  A2,  nodal  points  I  and  J  must  be  ordered 
in  counterclockwise  order  about  centroid  of  element  on 
which  the  pressure  is  applied. 


18th  CARD  TYPE:  FORMAT  (15) 


Cols.  1-5  NPBCP  -  Number  of  nodal  points  along  the  boundary 

where  the  stresses  are  applied. 

19th  CARD  TYPE:  FORMAT  (IS,  3F10.0) 


Cols.  1-5  NPBC(M)  -  Nodal  point  number  where  the  boundary 

pressure  is  applied. 


6-15  PSCA(M.l)  -  av  at  nodal  point. 

16-25  PSCA(M,2)  -  at  nodal  point. 

26-35  PSCA(M,3)  -  t  at  nodal  point. 

xy 

Stresses  (ax,  ay  and  xXy)  are  shown  positive  in  Fig.  A2. 

To  simulate  excavation ,  these  stresses  are  equal  in  magni¬ 
tude  and  opposite  in  direction  to  the  initial  stresses  at 
the  nodal  point.  As  shown  in  Fig.  A2,  stresses  (crx ,  Oy  and 
Txy)  the  nodal  points  are  converted  to  normal  and  snear 
stresses  on  the  boundary.  Then  the  nodal  point  forces  are 
calculated  from  the  normal  and  shear  stresses  along  the 
boundary  assuming  linear  stress  distribution  along  the 
boundary.  The  normal  and  shear  stresses  are  shown,  positive 
in  Fig.  A2.  These  cards  are  provided  to  take  into  account 
externally  applied  stresses. 


17th,  18th  and  19th  card  types  are  neglected  if  NUMPC  ■  0 
on  the  15th  card  type. 

20th  CARD  TYPE:  FORMAT  (15,  F5.0,  2F10.0) 

These  cards  read  the  information  regarding  the  change  in  the 
boundary  conditions  for  all  the  nodal  points  involved. 


WOODWARD-IUNDGREN  S.  ASSOCIATES 


( 


A-  13 


Cols.  1-5  N  -  Number  of  nodal  point. 

6-10  CODE(N)  -  Type  of  nodal  point. 

11-20  UR(N)  -  Load  or  displacement  in  X-direction. 

21-30  UZ(N)  -  Load  or  displacement  in  Y-direction. 

These  cards  are  omitted  if  NPF  *  0  on  the  15th  card  type. 

21st  CARD  TYPE:  FORMAT  (515) 

Cols.  1-5  NS(I)  -  Nodal  point  number  at  which  nodal 

stresses  are  to  be  computed. 

6-10  NSEL (I , 1)  -  First  interpolation  element  number. 

11-15  NSEL (I , 2 )  -  Second  interpolation  element  number. 

16-20  NSEL(I , 3)  -  Tnird  interpolation  element  number. 

21-25  NSEL (I , 4)  -  Fourth  interpolation  element  number. 

Repeat  for  all  nodal  points  at  which  nodal  stresses  are  to 
be  computed.  These  are  provided  to  simulate  excavation. 

The  mid-points  of  no  three  of  the  four  interpolation  elements 
may  lie  on  a  horizontal  or  vertical  line.  These  elements 
should  be  read  in  a  criss-crossed  fashion  as  shown  in  Fig.  A3. 
The  centroids  of  the  first  and  second  elements  should  not 
lie  on  a  vertical  line. 

These  cards  are  omitted  if  NPCAV  is  zero  on  the  15th  card 
type. 


22nd  CARD  TYPE:  FORMAT  (15) 

Cols.  1-5  NCAVPC  -  Number  of  pressure  cards  on  the 

cavity  face  to  simulate  excavation. 


23rd  CARD  TYPE:  FORMAT  (1615) 

Cols.  1-5  IJBCA  (L,l)  -  Nodal  point  I  along  boundary  IJ 

where  pressure  is  applied. 


6-10  IJBCA  (L|2)  -  Nodal  point  J  along  boundary  IJ. 


11-15 

16-20 


Same  as  above.  Two  nodal  point 
numbers  for  each  boundary  where 
the  boundary  pressure  applied. 
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21-25 

26-30 

22nd  and  23rd  card  types  are  neglected  if  NPCAV  =  0  on  the 
15th  card  type. 

24th  CARD  TYPE:  FORMAT  (15,  F10.5) 

Cols.  1-5  ITN(N)  -  Number  of  iteration  for  Nth  increment. 

6-1'.  PRATIO(N)  -  Fraction  of  total  pressure  applied  for 

Nth  increment.  The  sum  of  PRATIO  (N) 
for  all  increments  should  be  equal  to  1. 

Repeat  for  each  loading  increment. 


25th  CARD  TYPE:  Binary  data  cards  for  all  elements  which  are 

punched  out  at  the  end  of  the  previous  computer 
run. 


STRS (N, 1) 
STRS (N, 2) 
STRS (N, 3) 


MTAG (N) 


-  a 


-  a 


*  t. 


xy 


SEP  (N, 1) 

-  Excess 

stress  ax' 

SEP  (N , 2) 

-  Excess 

stress  j  ' 

SEP  (N , 3) 

-  Excess 

stress  t 

A/ 

STRS (N , 4) 

-  °7 

An  index  ind 
tension  or 
If  MTAG (N)  = 


icating  if  the 
yielded  under 


element  has 
compressive 


MTAG (N)  = 
MTAG (N)  = 
MTAG (N)  = 


-*•  > 
or 
2, 
in 

3, 

in 

4, 


failed 
stress 
in 


in 

field. 

tension 


the  element  has  not  failed 
compressive  stress  field 
the  element  has  failed  in  tension 
one  direction  only, 
the  element  has  failed  in  tension 
two  orthogonal  directions, 
the  element  has  not  failed  in 
tension  but  yielded  under  compressive 
stress  field. 

MTAG(N)  =  5,  the  element  has  failed  in  tension 
in  one  principal  stress  direction, 
and  subsequently  yielded  under  compressive 
stress  field. 

MTAG(N)  =  6,  the  element  has  failed  in  tension 
in  two  orthogonal  directions,  and 
subsequently  yielded  under  compressive 
stress  field. 
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26th  CARD  TYPE:  Binary  data  cards  for  all  joint  elements, 

neglec  ed  if  MJOINT  =  0. 

NJT  -  Total  number  of  joint  elements 

FN (N)  -  Normal  stress  across  joint  element 

FT (N)  -  Tangential  stress  across  joint  element 

25th  and  26th  card  types  are  neglected  if  NREAD  =  0  on  the 
2nd  card  type,  i.e.,  these  cards  are  only  needed  to  restart 
the  computation.  ~ 


27th  CARD  TYPE:  Binary  data  cards  for  all  nodal  point  dis¬ 
placements,  yield  function,  and  all  strain 
components  for  all  elements. 


DISP  (N,  1) 
DISP (N, 2) 
FY  (N) 

STRN (N, 1) 
STRN (N , 2 ) 
STRN (N, 3) 


X-displacement  for  node  N 
Y-displacement  for  node  N 
Yield  function  for  element  N 
Strain  component,  e  for  element  N. 

A 

Strain  component,  c  ,  for  element  N. 

Strain  component,  y  for  element  N. 

xy 


27th  card  type  is  neglected  if  NREAD  =  0  on  the  2nd  card  type, 
i  •  e  •  >  these  cards  are  only  needed  to  restart  the  computation. 


Repeat  14th  through  24th  card  types  for  all  subsequent  construc¬ 
tion  stages. 
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PROGRAM  NTJTEP2(INPUT,OIJTPUT,T4PE9,TAPF90,TAPE91  ,TAPE3, 

1  PUNCH8,TAPEB0,TAPE30,TARE40,TAPF50,TAPE60,TAPE5a INPUT, 

?  TAPElaPUWCHB, PUNCH) 

NG  TENSION, JOINT  PERTURBA TION , AND  ELASTIC-PLASTIC  ANALYSIS  OF 
PIANF  STRAIN  STRUCTURES  WITH  INCREMENTAL  CONSTRUCTION, 

****  THIS  PROGRAM  DEVELOPED  BY  C-Y  CHANG  OF  WOODWARD-LUNDGREM  SEPT, 
COMMON  /  /  NUMNP,NUMEL#NUMMAT,NUMPC,ACELX, ACELY,HED(8) ,NNN,r 

1  NPCAV,REFPRS,DEPTH,NRES,N,VOL,NCALC,IBACK,MJOINT,MTENS,Nl”, 

2  ITN(20),PRATIO(20),NISTOP,NRF AD,NSTSRT,NANALY 
3, NCT,NCONST,NPBCP,NC a vpc 

COMMON  /MATP/  MTYPE,RO(12),E(8,12),AKO(12),MNTFN(12),MJNT(l2) 

1  ,C°AC (12) 

/ELt>ATA/TX(900,5),MTAG(900),EPS(900),STRS(900,4)  ,SEP(R 
/NPDATA/  R(999)  ,Z  (999) ,  CODEC  999) ,  UR  (999)  ,117(999) 

/PSLD/  IJBC(5O,2),PSCA(75,3),NP0C(75) 

/BANARG/  B(180) , A (90, ISO) , MB A ND, ND2 , NUMBLK , MRMA X , NB 


COMMON 
COMMON 
COMMON 
COMMON 

1  ,MTAPt ,MTAP2 
COMMON  /ARG/ 

1 

2 

COMMON  / JNT/ 
COMMON  /NPS/ 
DIMENSION 

dimension 


RRR(5),ZZZ(5) ,S(10, 10) ,P(10),RSTRS(4) ,L8AD,LM(4) , 
ANGLE (tt),Xl,HH(6, 10),C («,«), EE (a),H (6, 10) ,D (6,6), 
F(6,K  ),SIG(6),DSIG(6)»  RR  (4)  ,HSEL  (31 , 4) ,  DSIGZ 
FN(450) ,FT(450) ,NJT 
PSCAV(75.3),IJBCA(50,2),NS(75) 

DISP(999,2),FY(900) ,NEJT(450) 

STRN(900,3) 


NB/45/ 

AND  MATERIAL 


PROPERTIES 


DIMENSION  NE(150),MT(150),NSEL(4,50),TITLE(8),MSP(150) 
EQUIVALENCE  (DISP, A (2000 ) ) , (F Y , A (400 0 ) ) 

EQUIVALENCE  (NEJT,A(6000)) 

EQUIVALENCE  ( 3TRN, A (6500 ) ) 

DATA  MBMAX/90/,  ND2/1S<)/,  END/3NEND/, 

READ  AND  PRINT  OF  CONTROL  INFORMATION 
LBAD  a  0 

HF.D 

•ED,  END)  GO  TO  9000 
IN!  DECK  MUST  READ*  END  * 

NUMNP,NtJMEL,  NUMM at,  4CF.LX,  ACELY,NRES,PEFPRS, DEPTH, 

inanaly,nconst,npunch,nreao 

PRINT  2000,HED,NUMNP,NUMEL»NUMMAT, ACELX, ACELY 
PPINT  2070,  REFPPS, DEPTH, mrfs,nANALY,NCONST 
IF  (NANALY  ,EQ,  0)  PRINT  3800 

3900 
METHOD 
METHOD 


50  READ  1000, 
IF  (HED(l) 
C*****FIN*L  CARD 
READ  1009, 


KITH 

WITH 


constant 

CHANGING 


STIFFNESS 

STIFFNESS 


AT  EACH 


IF  (NANALV  , EQ,  1)  PRINT 
C  ****  NANALY«0  INITIAL  STRESS 
C  ****  NANALYat  INITIAL  STRESS 
C  ******INCREMENT  OF  LOAD 

51  IF  (NREAO  , EQ,  1)  PRINT  3510 
IP  (NPUNCH  ,EQ,  1)  PRINT  3520 
READ  1005,  MJQINT,MTENS 

IF  (MJOINT  , EQ,  0)  GO  TO  52 
MEAD  1005,  (MJNT(I), Ial, MJOINT) 

PRINT  3200, (MJNT(I),T*1, MJOINT) 

52  IF  (MTENS  .EQ,  0)  GO  TO  53 
READ  1005,  (MNTEN(I), IH, MTENS) 

PRINT  3300, (MNTEN(I),I«1, MTENS) 

53  CONTINUE 

DO  59  M»1,NUMMAT 

READ  1001,MTYPE,RO(MTYPE),AKO(MTVPE) 

C  ***  CRAC  IS  DECIMAL  FRACTION  OF  TENSILE  STRENGTH  APPLIED  TO  CHECK 


NTJT 

1C 

NTJT 

2C 

NTJT 

3C 

NTJT 

4C 

NTJT 

5C 

73 

NTJT 

6C 

P. 

NTJT 

7C 

NTJT 

SC 

NTJT 

9C 

NTJT 

IOC 

NTJT 

lie 

NTJT 

12C 

0 , 3 ) NT  JT 

13C 

NTJT 

14C 

NTJT 

15C 

NTJT 

16C 

NTJT 

17C 

NTJT 

ISC 

NTJT 

19C 

NTJT 

20C 

NTJT 

?ie 

NTJT 

22C 

NTJT 

23C 

NTJT 

?4C 

NTJT 

25C 

NTJT 

26C 

NTJT 

27C 

NTJT 

28C 

NTJT 

29C 

NTJT 

30C 

NTJT 

31C 

NTJT 

32C 

NTJT 

33C 

NTJT 

34C 

NTJT 

35C 

NTJT 

36C 

NTJT 

37C 

NTJT 

3PC 

NTJT 

39C 

NTJT 

40C 

NTJT 

4 1  C 

H 

NTJT 

42C 

NTJT 

43C 

NTJT 

44C 

NTJT 

45C 

NTJT 

46C 

NTJT 

47C 

NTJT 

48C 

NTJT 

49C 

NTJT 

50C 

NTJT 

51C 

NTJT 

52C 

NTJT 

53C 

NTJT 

54C 

NTJT 

55C 

NO 

NTJT 

56C 

I  C  **«  TENSION  CONVERGENCE 

REAR  1030,  (E(J,MTVPE),J«J ,6) ,NTEST  »CRAC(MTYPE) 

IF  (MJOINT  ,EG,  0)  GO  TO  55 
00  5a  Isi,MJOlNT 
5a  IF  (M  .EG.  MJNTd))  GO  TO  58 

SyBINT  JOn,PTYPE,»n<HTYPE),AKO(PTYPE>.<E(J...TYPF).J«l,M,NTEST 

c**+  NTESTso  if  C  and  PHI  OBTAINED  PROP  TRIAXIAI  test 

C  *  *  *  NTESTsl  IF  C  AND  phi  OBTAINED  FROH  PLANE  STRAIN  TEST 
ANGsF(6,MTYPE)/57. 29577  1  TEST 

F(6,MTYPE')*ANG 
IF(NTEST.Fg.O)  GO  TO  56 
T  ANG*T  AN ( A  NG  5 
FDsSQRT (9,+12,*TANG**2) 

E(7,mtyPE)«T4NG/FD 
Ef8,MTYPE)*3,*E(5,MTYPEj/FD 
GO  TO  59 

56  SINAbSINC ANG) 

COSAsCOSt ANG) 

FD*t,732*(3,0«SlNA) 

E(7,htypE)s?,0*SINA/FD 

E(8,MTYPE)=6.0*F(5,MTYPE)*CnSA/FD 

GO  TO  59 

58  PRINT  2017,  mtyPE,  (E(J,MTYP£),  Jsl,5) 

59  CONTINUF  J 

C  READ  AND  PRINT  OF  NODAL  POINT  DATA 
print  2ooa 
L  s  1 

60  READ  1002,  N,CODE(N),R(N),ZfNT,UR(N),UZ(N) 

IF  f N  -  L)  100,  90,  70 


70  ZXsN-Ltl 

DR  =  ( R ( N )  -  R(L-l))  /  ZX 
DZ  *  (Z(N)  -  Z(L-l))  /  ZX 
80  CODE (L ) *0 , 0 
R(L)sR(L-n*DR 
Z(L)sZ(L-l)+DZ 
ljR(L)s0,0 


U2(L)=0.0 

90  PPINT  jot)?.  L.  COOECU,  R(i),  Z(U,  UR(L),  UZ(L) 

T  fc  t  I  C  n  AlllUAin  I  f  Vfc  ' » ^ 


IF  a.  ,EG,  NUPNP)  Go  to  no 
L  8  L  ♦  1 

IF  fN  -  L)  60,  90,  80 


IF  fN  -  L)  60,  90,  80 
100  PRINT  2009,  N 

LBAD  s  LBAD  ♦  1 
GO  TO  60 
110  CONTINUE 
NCALCsl 

READ  AND  PRINT  OF  ELEMENT  PROPERTIES 
DFTERMINE  BAND  WIDTH 
PRINT  2001 

MPA  NO  s  o 
N  s  1 

130  READ  1005, M, ( IX  (M, I) , 1*1 .5) 

DO  131  1*1,3 

II  s  I  ♦  t 
JO  131  L  *  II, a 


NTJT  57C 
NTJT  5BC 
NTJT  59C 
NTJT  60C 
NTJT  61C 
NTJT  62C 
NTJT  63C 
NTJT  69C 
NTJT  65C 
NTJT  66C 
NTJT  67C 
NTJT  68C 
NTJT  69C 
NTJT  70C 
NTJT  7 1 C 
NTJT  72C 
NTJT  73C 
NTJT  7«C 
NTJT  75C 
NTJT  76C 
NTJT  77C 
NTJT  78C 
NTJT  79C 
NTJT  60C 
NTJT  SIC 
NTJT  82C 
NTJT  83C 
NTJT  89C 
NTJT  85C 
NTJT  86C 
NTJT  87C 
NTJT  88C 
NTJT  89C 
NTJT  90C 
NTJT  91C 
NTJT  92C 
NTJT  93C 
NTJT  9ac 
NTJT  95C 
NTJT  96C 
NTJT  97C 
NTJT  98C 
NTJT  99C 
NTJT100C 
NT  JT 1 0 1 C 
NTJT102C 
NTJT103C 
NTJT104C 
NTJT1 05C 
NTJT106C 
NTJT107C 
NTJT108C 
NTJT109C 
NTJT110C 
NTJT111C 
NTJT112C 


B-3 


KK  =  IABS(lX(M,n  -  I  X  c  M ,  L  )) 

NTJTH3C 

IF  (KK  ,GE .  NB)  GO  TO  179 

NTJT114C 

131 

IF  (KK  .G T.  MR AND )  M P A N D  *  KK 

NTJT115C 

IF  (M  ,  N )  180,  170,  150 

NTJTU6C 

150 

I*CN, 1)*IX(N-1, 1)M 

NTJT117C 

IX(N,2'xIX(N-l,2)+l 

NTJT118C 

IX(N,3)=IXCN-1,3)M 

NTJT119C 

IX(N,4)*IX(N*1,4)+1 

NTJT120C 

IX(N,5)*IX(N-1 ,5) 

NTJT121C 

170 

PRINT  2003,  N,(IX(N,I),I=1,5) 

NTJT122C 

IF  CN  . EQ ,  NUM^l)  GO  TP  190 

NTJT123C 

N  *  N  ♦  1 

NTJT124C 

IF  CM  -  n)  130,  170,  150 

NTJT125C 

179 

N  S  N  *  1 

NTJT126C 

180 

PRINT  2018,  M,  KK,  N 

NTJT127C 

LBAD  5  LBAD  ♦  1 

NTJT128C 

GO  TO  130 

NTJT129C 

190 

CONTINUE 

NTJT130C 

MBA ND  s  ?  *  MPAND  ♦  2 

NTJT131C 

PRINT  2012,MQAND 

NTJT132C 

MEAD  INITIAL  STMFSSES  FOR  THE  PROBLEM,  PRINT  AS  PART  OF  FIRST  3TEPNTJT134C 


DO  32  Ns  t ,  N I j  M  E  L 
STR8(N,4)«0.o 
DO  32  I s 1 f  3 
SEPCN, I)=0.0 
32  STRS(NfI)*0.0 

IF  (NRES  .LE.  0)  GO 
IF(NRFS  ,EQ,  3)  GO 
1*1 

RESIDUAL  STRESS 
RESIDUAL  STRESS 
residual  STRESS 
RESIDUAL  STRESS 


*NRES*«1 
*NRE8=0 
*NRES*1 
*NRfcS*2 
*NPES«3 
******* 
47 


TO 

TO 

ARE 

APE 

ARE 


4(1 

48 


COMPUTE 
ON 


face********* 


1007,  N ,  ( 8TRS (N, I ) , 1*1 ,4 ) 


42 

46 

41 


40 


45 


48 


EXCAVATED 
READ  1007,  N 
IF(N-L)  40,41,42 
DO  46  1=1,4 

STRSCL,n*STR3a-l,I) 

IF  (L  .EQ.  nijmel )  GO  TO  45 
L  ■  L  ♦  1 

IF  (N  -  L)  47,  41,  42 

LBADsLRAO+1 

PRINT  1 008 , N, LBAD, L 

GO  TO  47 

CONTINUE 

PRINT  1006 

PRINT  1007,  CK,(STRS(K,I),I»l,4),K»l,NUMEL) 
IF  CMJOINT  .EG,  0)  GO  TO  44 
MEAD  4100,NJT, (FN(I) ,FT(I) ,NE JTC I ) , 1*1, NJT ) 
PRINT  4200, (I,FN(I) ,FT(I),NEJT(I),I«J ,NJT) 
GO  TO  44 

DO  210  N  *  1,  NUMEL 
MTYPE«»IX(N,5) 


NTJT136C 
NTJT137C 
NTJT136C 
NTJT139C 
NTJT140C 
NTJT141C 
NTJT142C 
NTJT143C 

GENERATED  FROM  WHICH  RESIDUAL  LOAD  CALCULANTJT144C 
GENERATED, BUT  RESIDUAL  LOAD  IS  ZERO  NT JT145C 
INPUT  AS  DATA  FROM  WHICH  RESIDUAL.  LOAD  GENNTJT146C 

ZERO  NTJT147C 
FORCES  NTvT148C 


ARE  INPUT  AS  DATA, BUT  RESIDUAL  LOAD  IS 
RESIDUAL  STRESSES  BEFORE  ANALYSIS  FOR  COMPUTING 


NTi*  T 1 49C 
NT J  7150C 
NTJT151C 
NTJT152C 
NTJT153C 
NTJT154C 
NT  JT155C 
NTJT156C 
NTJT157C 
NTJT158C 
NTJT159C 
NTJT160C 
NTJT181C 
NTJT162C 
NTJT163C 
NTJT164C 
NTJT165C 
NTJT166C 
NTJT167C 
NTJT1A8C 
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I*I*(n, 1 ) 

J*IX (N,  2) 

**IXCN,3) 

L*Ix(N,a) 

Ip  (*  .EG.  U  GO  TO  204 
ZZZ(5)*(ZCI)+Z(  JWZ(K)*Z(L))*0.25 
go  rn  205 

ton  ZZZC5)s(zm  +  Z(J)  +  Z(K»/3. 

205  *AN,D*  t  CP.MTVPE  )  .LE  .  1 . )  GO  TO  210 

CALL  INITST 

210  CONTINUE 

NRESsO 

4a  continue 

C  0OL350Nn=’Lnuhel  STRUCTURE  BY  succE3SIVE  APPROXIMATIONS 
EPS(N)s0,0 

NTAG(N)SJ 
35n  CONTINUE 

wEAD  i oos, ncpsnt, nprsnt, ttpsnt 
print  6000, NCPSNT, NPRSNT, TTPSNT 
ITIsITPSNT 
NPRSIsNPRSNT 

NELPNCHSO 

00  900  NCT«NCPSNT.NCONST 
IE(NCT.GT.l)  nres*o 
IF(NCT.GT, NCPSNT)  NPRSNTel 
READ  1000,  TITLE 

READ  1  0  05, NEPSP,NUMPC,NPF,NPCAV,NP, ngld, MTRM.NSPT 

IFCNCT. EG. NCPSNT)  NP 1 snP 

^01, title, nersp,numpc,npf,npcav,np,mtrh.nspt 

C,**  NSPT  *  )  TF  THERE  IS  LINER  FOR  THIS  CONSTRUCTION  STEP 
C**  NSPT  so  IF  THERE  IS  NO  LINER  FOR  THIS  CONSTRUCTION  STEP 
IF  (NGLO  .EG.  1)  PRINT  6200 
IF(NCT.GT.NCPSNT)  GO  TO  610 
IF(NPRSNT.LE.NP)  GO  TO  610 
PRINT  3600 
GO  TO  9000 
610  CONTINUE 

IF(MERSP.LE.O)  GO  TO  810 

NELPNCHsNELPNCHM 

NCALC«1 

PFAD  10  05,  (NE(n,MT(I),MSP(I),I«i  ,NERSP) 

PRINT  6002 

PRINT6007, (NE(I),MT(I)(msP(I), i»i,NERSP) 

C  *  MT(T)  s  MATERIAL  NO,  ASSIGNFO  FOR  NIT  »  1 
C  *  MSP(I)  c  MATERIAL  NO.  ASSIGNED  FOR  NIT  GREATER  THAN  1 
810  IFCNUMPC.EQ.O)  GO  TO  8>0 
PRINT  2005 

PFAD  1005, ( (IJRCCL, I) ,1=1, 2), 1=1 ,NUMPC) 

PRINT  2007, ( ( I J9C (L, I ) , 1*1 ,2) , L* 1 ,  NUMRC ) 

READ  1005,  NPBCP 

PRINT  2050 

00  ft 1 5  M*l , NPBCP 

READ  1020.NPBCCM), (PSCA(M,I),I*1,3) 

RRI^'T  1020  ,NPBC(M),(PSC4(M,i),i*if3) 

815  CONTINUE 


NTJT169C 

NTJT170C 

NTJT171C 

NTJT172C 

NTJT173C 

NTJT174C 

NTJT175C 

NTJT176C 

NTJT177C 

NTJT178C 

NTJT179C 

NTJT180C 

NTJT181C 

NTJT182C 

NTJT183C 

NTJTlflaC 

NTJT185C 

NTJT186C 

NTJT1B7C 

NTJT188C 

NTJT189C 

NTJT190C 

NTJT191C 

NTJT192C 

NTJT193C 

NTJT19RC 

NTJT195C 

NTJT196C 

NTJT197C 

NTJT198C 

NTJT199C 

NTJT200C 

NTJT20?C 

NTJT202C 

NTJT203C 

NT  JT204C 

NTJT205C 

NTJT206C 

NTJT207C 

NTJT208C 

NTJT209C 

NTJT210C 

NTJT2UC 

NT JT212C 

NTJT213C 

NTJT214C 

NTJT21SC 

NTJT216C 

NTJT217C 

NTJT218C 

NTJT219C 

NTJT220C 

NTJT221C 

NTJT222C 

NTJT223C 

NTJT224C 
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820 

CONTINUE 

NT JT225C 

IF(NPF ,F0.0)  GO  Tn  840 

NT JT226C 

PPIMT  6005 

NT JT227C 

DO  830  1=1, NPF 

NT JT228C 

READ  1002  ,  N,CODE(N),UR(N),UZ(N) 

NTJT229C 

PRINT  6008,  N,CODFiN)  ,uR(N)  ,IJZ(N) 

NTJT230C 

830 

CUNTJNUfc 

NTJT231C 

840 

CONTINUE 

NTJT232C 

IF (NPCAV.EQ.O)  GO  TO  850 

NTJT233C 

PRINT  6006 

NTJT234C 

READ  1010,  (NS(I)  ,(N8EL(J,I) , J«1,4),I  =  1,NPCAV) 

NTJT23SC 

PRINT  4000,  CNS(n,(N3Et(J,n,J«l,4),I*l,NPCAV) 

NT JT236C 

READ  1005, NC  AVPC 

NT.H237C 

READ  1005  ,  ((IJPCA(L,n,I«l,2),L«l,NCAVPCl 

NT JT238C 

PRINT  2005 

NTJT239C 

PRINT  2007  ,(CIJ8CA(L,n,I«1.2),L*l,NCAVPC) 

NTJT240C 

850 

CONTINUE 

NTJT241C 

c*** 

IF  THE  PRESENT  CONSTRUCTION  STAGE  18  NOT  THE  FIRST  ANALYSIS  OF 

NTJT242C 

c 

THIS  RUN  NPRSNT*1 

NTJT243C 

READ  1040  ,  (ITN(N) , PRATIO(N) , NsNPRSNT, NPI 

NT JT244C 

O*  ITN  .GE.2IF  NSP  a  1 

NT JT245C 

PRINT  34  00, ( fN, ITN  .N), PRAT I0(N1 ) , N«NPR$NT , NP ) 

NT  JT246C 

IF  (NCT  ,GT.  NCP3NT  .OR,  NREAD  , NE ,  1  )  GO  TO  860 

NTJT247C 

READ  (5)  C(STRS(N,n  ,SEPfN,n,Isl,3) ,STRS(N,4),MTAG(N),N»1,NUMEL) 

NTJT248C 

IF  (MJOINT  ,E0.  0)  GO  TO  860 

NTJT249C 

READ  (5)  NJT,(FN(N),FT(N5,N«1,NJT) 

NT JT250C 

860 

IF(NPCAV  .EQ.  0)  GO  TO  861 

NTJT251C 

CALL  NPST9S(NSEL,NPCAV) 

NTJT252C 

861 

CONTINUE 

NTJT253C 

IF(  NEPSP  .LE.  0)  GO  TO  870 

NTJT254C 

DO  865  I = 1 , NERSP 

NTJT255C 

N=NE ( I ) 

NTJT256C 

MTAGCNI«1 

NTJT257C 

IF  (MTRM  .EG,  Mid))  GO  TO  863 

NTJT258C 

GO  TO  865 

NTJT259C 

863 

MTAG(N)«0 

NTJT260C 

DO  864  Jsl,4 

NTJT261C 

3TRSCN, J)«0,0 

NTJT262C 

864 

CONTINUE 

NTJT263C 

865 

continue 

NTJT264C 

870 

CONTINUE 

NT JT265C 

DO  500  NNN8NPRSNT,NP 

NTJT266C 

ITAPEsO 

NT  JT 

NISTOP80 

NTJT267C 

ITNPsITN(NNN) 

NT JT268C 

IF(nnn,gt,nprsnt,pp.nct,gt,ncpsnt)  itpsnt«i 

NTJT269C 

DO  450  NIT«ITPSNT, ITNP 

NT JT270C 

NYD  s  0 

NTJT271C 

DO  872  N  e  1 , NUMEL 

NTJT272C 

IF  C  MTAGCN!  ,GE,  4)  NYD  8  NYD  ♦  1 

NTJT273C 

872 

CONTINUE 

NTJT274C 

IF(MIT  ,GE.  3)  GO  TO  890 

NTJT275C 

IF  (NERSP  ,EQ,  0)  GO  TO  890 

NTJT276C 

IF  (N8PT  .EQ.  0)  GO  TO  875 

NTJT277C 

IF  (NIT  .EG.  1)  GO  TO  875 

NTJT278C 

IF  (NIT  .EG.  2)  Gn  TO  880 

NTJT279C 

GO  TO  890 

NTJT280C 

I 


Mb 


m 


f 


*75 

*77 

*80 


*81 

890 


00  877  1=1 .NFHSP 
N  =  NE(J) 

I*(N#5)  a  M  T  (  I  ) 

GO  TO  *90 
00  *81  Iai,NER3P 
Kl  =  NE(I) 

IF(  ^SP(I)  ,NE,  MTRM  ) 
I X  C  NJ  *  b )  a  HSP(I) 
CONTINUE 
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MTAG(N) 


IF 

C NNN  .EG,  1 

.AND,  NTT 

.  EQ 

IF 

(NANALY  , EG, 

0  .AND. 

NSPT 

IF 

(NANALY  .EQ. 

0  .AND. 

N$PT 

IF 

(NANALY  .EQ. 

1  .and. 

N3PT 

IF 

(NANALY  .EG. 

1  .AND, 

NSPT 

CALL  EXIT 

240 


(NNN 

.EG. 

NPRSNT 

.AND 

.  NI 

(NNN 

.NF. 

NPRSNT 

.OR. 

NIT 

TO  270 

(NNN 

.EG. 

1 

.AND. 

NIT 

.EQ 

(NNN 

.EG, 

1 

.AND. 

NTT 

.gt 

(NNN 

.GT. 

1 

.AND. 

NIT 

.EQ 

(NNN 

.GT, 

1 

.and. 

NIT 

.gt 

TO  270 

(NIT 

.GF. 

2) 

NCALCa3 

(NIT 

.GT. 

2 

.AND. 

ITAPE  .1 

NYD 

.EQ. 

0 

.AND. 

NIT 

.GE 

(NNN 

.GT. 

1 

.AND. 

NIT 

.EQ 

2  60 


200  IF 
IF 
GO 

220  IF 
IF 
IF 
IF 
GO 
IF 
IF 
IF  ( 

IF 

GC  TO 

IF  (NNN  ,EQ, 

IF  (NIT  ,GF. 

IF  (NIT  ,GT. 

IF (  NIT  .Gt. 

IF  ( NNN  , GT , 

IF  (NNN  tGT, 
CONTINUE 
MTAP1  a  80 
*TAP2  a  90 
IF  (NCALC  .EG. 
IF (  NCALC  .EG, 
GO  TO  290 
»  50 
a  60 
290 
*  30 
a  40 


.  1) 

.EG. 

.EG. 

.FO. 

.EQ. 

’  .EG, 

.WE. 

2) 

?) 

1) 

n 


NCALC  a  1 
0)  GO  TO  200 
1)  GO  TO  220 
0)  GO  TO  240 
1 )  GO  TO  260 

ITP3NT)  NCALC  i 
ITP8NT)  NCALC  a 


NCALC  a  2 
WCAIC  a  5 
NCAt  C  a  4 
NCALC  a  b 


270 


1 

3) 

3 

3 

1 

1 


3.  1)  NCALC*6 
2  )  NCALC  a  4 
n  NCALC  B  4 


.AND,  NIT  .EQ.  2)  NCALC  a  2 
NCALCa3 
.AND,  ITAPE 


.and, 

.and, 

.and. 


N  YD 
NIT 
NIT 


.E0,1) 
.EQ,  0  ) 
.EQ.  1) 
.EQ.  2) 


NCALCa6 
NCALC  a  5 
NCALC  a  4 
NfALC  a  5 


2 

3 


.OR. 

.OR, 


NCALC 

NCALC 


.EQ, 

.EG, 


5)  GO  TO  280 

6)  GO  TO  2*5 


280 

285 

290 


760 

770 


MTAP1 
HTAP2 
GO  TO 
MTAP1 
MTAP2 
ITAPEal 
CONTINUF 

PRINT  3100#  NNN#  NIT 
CALL  SECONDED 

IF  (NIT  ,EQ,  1  , OR ,  NCALC  ,EQ, 
IF(NCT,GT,NCP8NT)  GO  TO  760 
IF(NNN,EQ,NPRSNT,AN0,NIT,EQ,IT1) 

IF ( NPF , GT , 0 )  GO  TO  770 
IF  (NNN  , EQ,  NPRSNT  , AND,  NIT  .EG 
IF  (HJOINT  , EQ,  0)  GO  TO  355 
00  354  Na 1 , NUMNP 

IF  (ABS(UR(N))  ,LE,  1,)  GO  TO  354 


n 


GO  TO  357 
GO  TO  357 
.  ITU  GO  TO  357 


NTJT281C 
NTJT282C 
NTJT283C 
NTJT280C 
NTJT285C 
NTJT286C 
NTJT287C 
NT JT28*C 
NTJT289C 
NTJT290C 
NTJT291C 
NTJT292C 
NT JT293C 
NT7T294C  , 
NTJT295C 
NTJT296C 
NT JT297C 
NTJT298C 
NTJT299C 
NTJT300C 
NTJT301C 
NTJT302C 
NTJT303C 
NTJT304C 
NTJT306C 
NTJT306C 
NTJT307C 
NTJT308C 
NTJT309C 
NTJT310C 
NTJT3UC 
NTJT312C 
NTJT313C 
NTJT314C 
NTJT315C 
NTJT316C 
NTJTI17C 
NTJT318C 
NTJT319C 
NTJT320C 
NT.IT321C 
NTJT322C 
NTJT323C 
NTJT324C 
NTJT325C 
NT  JT 

NTJT326C 
NTJT327C 
NTJT328C 
NTJT329C 
NTJT330C 
NTJT331C 
NTJT332C 
NT  JT333C 
NTJT334C 
NT JT335C 
NT 'JT336C 


t 


B-7 


C  *  *  *  *  * 

c  ***** 

354 

355 


TF  (ARSO'ZCN))  ,LE.  1.)  GO  TO  354 
N  ISTOPaNISTOP* 1 


continue 

CONTINUE 

IF  CNNN.E^.1  .*NO.NSPT,tQ.l.AND.NIT,E0.2.ANO#NISTOP.GT.O)  GO  TO 

IF  (NlSTOP  .EG.  0)  GO  TO  460 

CONTINUE 

FORM  STIFFNESS  MATRIX 
CALL  STIFF 
CALL  SECOND ( T2 ) 

IF  (LRAD  ,NE.  0)  GO  TO  8050 
SOLVE  FOR  DISPLACEMENTS 
CALL  RANSOL  CNNN, NIT,NCALC) 


CALL  SECOND ( T3 ) 
PRINT  2016 
00  360  N*  1  ,  NIIMNP 
OO  360  1=1 #2 
OISPCN,I)s0.0 
DO  361  N*1  f NIJMEL 
DO  362  1=1,3 
STRNCM, IJaO.O 
FY(N)a-i000. 
CONTINUE 

IFCNNN  ,EQ.  1  .Af 


IF(NNN  ,EQ.  1  .AND.  NIT  .EG.  1 . AND . NCT . EQ . 1 )  GO  TO  380 

IFfNPEAD.EG, 1 , AND.NNN.EG.NPRSNT.AND.NIT.EO, IT1)  GO  TO  370 

REWIND  3 

IN*}°numeL)  (0ISP':KI,n,I*1'2)'N*l,NUMNP)'  (FV(n)#(StRn(N,I),I«1,3) 

GO  TO  380 

READ  (5)  ((DISP(N,I) ,i«if P),n*1,NUMNP) , (FY ( N ) , ( STRN <N, I ) , Xai . J ) 

I  N  ^  1 ,  niimel  )  ' 

no  uon  N*1 . NUMNP 
N2«N*2 

DI9PCN, 1)«DI3P(N, 1)+BCN2*1) 

DISP(N,2)sDISP(N,2)*B(N2) 

PRINT  2006,  N,B(N2-1),B(N?),C0DF(N),DI3P(N,1),DISP(N,2) 

CONTINUE 

IF  (NGLD.NE, 1 )  GO  TO  410 


DO  405  N*l, NUMNP 

DISP(N,1)«0.0 

OISP(N,2)*0.0 

CONTINUE 

CONTINUE 

COMPUTE  STRESSES 

NISTOPsO 

CALI  STRESS 

RESET  UP  AND  IJZ  EQUAL  TO  ZERO 

IF (  NIT  ,GE,  ?)  GO  TO  415 

IF(NERSP.EQ,  0)  GO  TO  415 

DO  414  I  «  1 , NERSP 

IF(  MTRM  .NE,  MT  ( I )  )  GO  TO  414 

N  =  NE(I) 

Dn  413  J  =  1,3 


NT  JT337C 
NVJT338C 
N/JT339C 
NTJT340C 
NTJT341C 
NTJT342C 
357NTJT343C 
NTJT344C 
NTJT345C 
NTJT346C 
NTJT347C 
NT JT34PC 
NTJT349C 
NTJT350C 
NTJT351C 
NTJT352C 
NT JT353C 
NTJT354C 
NTJT354C 
NTJT356C 
NT  JT357C 
NT JT357C 
NTJT359C 
NT JT360C 
NTJT361C 
NT  JT362C 
NTJT363C 
NTJT364C 
NT JT365C 
»  NTJT366C 
NTJT367C 
NTJT368C 
,  NTJT369C 
NTJT370C 
NTJT371C 
NTJT372C 
NTJT373C 
NT JT374C 
NTJT375C 
NTJT376C 
NTJT377C 
NTJT378C 
NT  JT379C 
NTJT380C 
NTJT381C 
NT  JT382C 
NTJT383C 
NTJT384C 
NTJT385C 
NTJT386C 
NTJT387C 
NTJT388C 
NTJT389C 
NTJT390C 
NTJT391C 
NTJT392C 


■» 

J 
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I 


I 


913 

« 14 

9J5 


* 


,  NllMNP 


409 


STRNfN, J) 

CONTINUE 

continue 
continue 

DO  420  Na 1 
U»(N)*0. 

UZfN)ao, 

CONTINUE 
IFCMJtlINT.EQ.O) 

CALL  JTSTP 
CONTINUE 
REWIND  3 

inm^umel)CD!8P(N'I1'I’1'2,'N*1'n',h',P)'cfvcn,#<8TRn(n'i,'Ib1*3>* 

call  SECOND  (  T4 ) 


GO  TO  <109 


U  S  o 

460 

500 

900 


TTsTH-TJ 
TUT2-T1 
T2sT3-T2 

PRINT  2020,T1,T< *TT 
NREADeo 


510 


520 


CONTINUE 
CONTINUE 

continue 
continue 

-..-PUJCH  OUT  INITIAL  STRESSES  FRQH  GRAVITY  TURN-ON  ANALYSIS 

JuNCH  tSd^HEO1  -0"*  NRES  -Nt’  50  ™  ■>'« 

PRINT  1007* (N,(STRS(N,I),I*i,4),n*1,nUMEL) 

CONTINUE00  *  (N'  (STR3(N,I),I*i,<|),ns1,NUMEL) 

IF  CNPIJNCH  ,NE,  1)  CO  TO  600 
PUNCH  1000, HED 
PUNCH  3700*NCONST, NP 
IFCNELPNCH.LE.O)  GO  TO  520 
PUNCH  6100, NELPNCH 

PUNCH  1015, C(M, f IX(M,I),I*l,5))fM*l,NUMEL) 

I*  WMnt'IJSJ'JS'm'to I^,'I*l’3,'!IT',,(N'“,<"T*StN),N.l,NlmtL) 
WRITE  (1)  N JT, (FN ( N ) , FT (N ) , N* 1 , N JT) 

CONTINUE 

lN=!!NUl!|EL)tl>ISPfN’n’I“1'2)'N*1’*'UMN,>,’(F''tN,'t,TBN<N'I,'I">'5)> 
noo  continue 

GO  TO  50 
FORMAT  (8 A 1 0 ) 

(I5*2F10,5) 

CI5,F5.0,5F10.0) 

(2I5»F10.0) 

(1615) 

(37hi  initial  stresse 
1TRESSBX,7HY9TRESS7X,8HXYSTRES8)  5  E 

1007  FORMAT  (I5,aE15.5) 

FORMAT (515)  J 

FORMAT(6I5) 


550 


1000 
1  001 
1002 
10  0  9 

1005 

1006 


FORMAT 

format 

FORMAT 

FORMAT 

format 


NTJT393C 

NTJT394C 

NTJT395C 

NTJT39oC 

NTJT397C 

NTJT398C 

NTJT399C 

NTJT900C 

NTJT401C 

NTJT402C 

NTJT903C 

NTJT404C 

NTJT905C 

NTJT406C 

NTJT907C 

NTJT408C 

NTJT909C 

NTJTU10C 

NTJT41 1C 

NTJTU12C 

NTJT413C 

NTJT914C 

NTJT415C 

NTJT416C 

NTJT917C 

NTJT418C 

NTJT919C 

NTJT420C 

NTJTU21C 

NTJT422C 

NTJT923C 

NT JT424C 

NT JT425C 

NTJT426C 

NTJT427C 

NTJT928C 

NTJT429C 

NT JT430C 

NTJTU31C 

NTJT932C 

NTJT433C 

NTJT434C 

NT  JT435C 

NTJT436C 

NTJT437C 

NTJT438C 

NT  JT439C 

NTJT440C 


1008 

1009 

1010 
1015 


NTJT441C 

S/8H0ELEMENT3X*7HXSNTJT442C 

NTJT443C 
NT  JT444C 


NTJT446C 
NT JT447C 
NTJT448C 


f 
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10?0  for MAT  (15* 3F 10,0)  NT JT449C 

1030  FORMAT(6F10,5,I5,Fl0.5)  NT JT450C 

10uo  format  (I5.F10.5)  NTtr^Jr 

2O0n  FORMAT  (1H120X.8M0/  NTiJaMr 

1  30H0  NUMBER  OF  NODAL  POINTS . 13  /  NTJT^3r 

2  30HO  NUMBER  OF  ELEMENTS-— - — —  13  /  NT  rrusur 

3  30H0  NUMBER  OF  DIFF.  MATERIALS—  13  /  NTJTU^f 

5  30H0  X-ACCELEHATION . El2.il/  NTJTAiSfcC 

*>  30H0  Y-ACCELERATION . El2.il/  )  NTJTa57C 

2001  FORMAT  (49H1ELEMENT  NO.  I  J  K  L  MATERIAL  1  NTJT^Ar 

|°«  uie.fi2.2.2f,2.3,212«.t)  m.tehial  )  ntjtrssc 

2003  FORMAT  (1113,1116,1112)  NTJTflfcor 

P 0 0 11  FORMAT  ( 1 08H 1  NODAL  POINT  TYPE  X-ORDINATE  Y-QRDI NA TF  X  L0NTJTH61C 

1  AO  OR  DISPLACEMENT  Y  LOAD  OR  DISPLACEMENT  )  NTJT462C 

POOS  FORMAT  (29H0PRESSURE  BOUNDARY  CONDITIONS/  1PH  I  j  //)  NTJT463C 

2006  FORMAT  ( 1 1 2 , l P2E 20 . 7 . OPF 20 . 0 , 1 P2E 20 . 7 )  NT JT464C 

2016  FORMAT  (12M1M.P.  NijMBER18X,2HUX18X,2HLIYl6X,ilMCODE12X,8HUX  CUMULI 2XNTJTU65C 

1 , 8HUY  CUMUL)  NT  IT/I^^r 

2007  FORMAT  (21*) 

2009  FORMAT  (26H0NODAL  POINT  CARD  ERROR  N.  15)  NTJTaAAr 

2011  FORMAT  (15H0MATERIAL  NO.  =I3,16H  MASS  DENSITY  «E12.4,41H  RATIO  ONT JT469C 

IF  HORIZONTAL  TO  VERTICAL  STRESS®  F 1 0 . 5/ 1 X , 1 6HTENSILE  STRENGTH, IX,  NTJT470C 
ietnrC°MP  2X, 13HPOISS0N  R A T 1 0 , 2 X , 1 PHTE NS  MODULUS, 3X,  8HC0HFNT JT47 1 C 

3SION,7X,17HANGLE  OF  FRICTION, 5X, lUHTYPf  OF  TEST®  /6E15.5,I10/  NT JT472C 

J  10X.56MFRACTION  OF  TENSILE  STRENGTH  FOR  NQ  TENSION  CONVERGENCE*,  NT JT473C 

2012  F0RMAT/(/6HMBAN0=  15  /)  NTJT475C 

?01  7,h2hVSI  !iu2!r'n5nAN«!«lsN^BEPIS/1H0<”<'aH'<N15X’ZHKTI<'X'1Hcl3)''3NTJT*7l'c 
lMPHjnX,  12HMAX.  C LOSURE/5E  1 5 , 4 )  NT  TTii77r 

2018  FORMAT  U6H  FLFMENT  CARD  NUI6,5X,4HKK  ® 1 4 , 5X , 8HNEXT  N  =16)  NTJT478r 

2019  FORMAT  (23H  NUMBER  OF  ERRORS  F0UN0I4)  1 

Jl3H2TlMlNC“STIFFF8*3'5x*t'HBAN8OLFe.3,5X,9HlTERATI0NFe.3)  NTJT480C 

2030  FORMAT  (/*0PLANE  STRAIN  ANALYSIS  OF  JOINTED  STRUCTURES*)  NT JT48 1 C 

2050  FORMAT  (26H  INITIAL  STRESSES  AT  NODES  /35M  N.P.  SIGXX  8IGYNTJT482C 

•  *  SIG  X  Y  )  ij*  17  U  ATT 

SO70  FORMAT  (5»,«1HVERTICAL  STRESS  *7  REFERENCE  POINT  (PSF).  F20.2/  NTJTRSAC 
1S3,3«HELEVATI0N  *7  REFERENCE  POIN7  (FT).  F20,2/57,5HNRES.  ,i!o  ,  NTJTRSSC 

30(12 %AomItP(  10F7*2)LVSIS*  '15/5X’J7HN0‘  0F  CONSTRUCTION  STEPS.  ,15//)  NTJTR06C 

HIS  r2S"4T  (//18”0N°,  OE  INCREMENTS  ,I5,5», 17MNO.  OF  ITERATION*  ,15/)  NTJTRSSC 
3200  FORMAT  (2RH  MAT.  NO,  FOR  JOINT  ELEMENTS.  ,1216)  NTJT.RQr 

3300  FORMAT  (36H  MAT,  NO,  WHICH  CAN  SUSTAIN  TENSION*  ,1216)  NT JT490C 

3  00  FORMAT  (21U  LOADING  INCREMENT  N*  ,  15 , 5X , 38HNO,  OF  ITERATIONS  FOR  TNTJT491C 
TC„ JHXJ  INCREMENT  *  ,I5,5X,31HPERCENTAGE  OF  PRESSURE  APPLIED*,  F10.5)  NTJT492C 
3500  FORMAT  FRE®fnt  LOADING  INCREMENT  NO,*,  15, 5X,  14HITERATI0N  NONTJT493C 

\r*E  °Vlb/  8H  ^3T8RT*,I5,5X,63HNSTSRT,NE,0  STRESSES  IN  RNT JT494C 
2-T  DIRECTIONS  WILL  ALSO  BE  PRINTED  OUT  /)  NTJTflQBr 

3510  y  QRMAT  ( /5H  ****,42HDATA  FROM  LAST  INCREMENT  ARE  READ  AS  INPUT  )  NTJTll9*»r 

"ill  be  puncne°  ou?  *t  ”*“•»'  Smt!!*' 

’‘^eSen^^s",!!!  )'HDING  INC,,EMF-NT  N0-  13  CRE‘TER  TH*N  LAST  INCmJjIwC 

3700  FOPMAT  («H  the  FOLLOWING  DATA  APE  PINAL  AND  EXCESS  8TRESS,NCONST.NTJT501C 
1  ,15,  3HMH*  ,  J5)  NT  ?T*irt5P 

HI!  H?"*7  <*  USINC’  INITIAL  STRESS  METHOD  WITH  CONSTANT  STIFFNERS*)  NTJT503C 

50  FORMAT  (*  USING  INITIAL  STRESS  METHOD  WITH  INITIAL  STIFFNESS  AT  EANTJT50UC 


B-in 


1C*  INCRFMENT  HE  1.040  BUT  CHANGING  STIFFNESS  IN  SUBSEQUENT  1 TE R A T I ONT JT505C 
2NS*)  NT JT506C 

"OOP  FORMAT(//*  N,p.  ALONG  EXCAVATED  F ACF  SURROUNDING  FLEMBNTS  *  /  NT JT507C 

*  (I20,10X,«I5)  )  NITJT508C 

«IOC  F0RmaT(I5/(2F2C.5,I5))  NT JT509C 

"200  format  (///*  INITIAL  NORMAL  AND  T  ANQF  NT  I AL  STRESSES  FOR  JOINTS*//  NTJT510C 

1  *  JOINT  NO.  NORMAL  STRESS  T4NGENTAL  STRESS  EL.  NO.  */(  NTJT511C 

2  110, 2E 15 .5, 110))  NTJT512C 

"300  FORMAT  (*  INITIAL  STRESSES*/ ( 15 , AE 1 5 . 5 ) )  NTJT513C 

6000  FORMAT (  NTJT51UC 

1  50H0  NUMBER  OF  PRESENT  CONST.  STFP-  — - — — -  15/  NTJT515C 

?  50H0  NUMBER  OF  PRESENT  LOAD  INCREMENT— --------------  15/  NT JT516C 

3  50*0  NUMBER  OF  PRESENT  ITERATION . . .  !5/  )  NTJT517C 

BO  0 1  FORMAT(1H1.8A10//  NTJT51SC 

1  5X ,  *  FOLLOWING  DATA  ARE  REQUIRED  FOR  PRESFNT  CONSTRUCTION  STAGE*  NTJT519C 

2  //5X,*NUMBER  OF  ELEMENTS  TO  BE  EXCAVATED  AND  OR  FOR  STRUCTURAL  NT JT520C 

38UPP0PT  a  *,  110, /5X,*  NUMBER  OF  PRESSURE  CARDS  *  *,110, /5X,  *  NT JT521C 

"NUMBER  OF  NODAL  POINTS  AT  WHICH  FORCES  APE  APPLIED  *,110,/  5X,  NT JT522C 

5*NUMfaER  OF  NODAL  POINTS  ALONG  CURRENT  EXCAVATED  FACE  REQIREO  FOR  NTJT523C 
6  EXCAVATION  SIMULATION  *  *,I10,/5X,*  NUMBER  OF  LOAD  INCREMENTS  *  *NTJT52aC 
7,110/  5X , *  MATERIAL  TYPE  FOR  EXCAVATED  ELEMENTS*  *,110/  MTJT525C 

P  5X ,  *  INDEX  ( a  1  IF  THERE  IS  I  INEP)  FOR  LINER  3  * ,  HO//)  NT  JT526C 

B002  FORMAT (  //  5X,*  MATERIAL  TYPE  FOR  FOLLOWING  ELEMENTS  ARE  CHANGED  NT JT527C 

1  AS  INDICATED  *//5X,  *  ELEMENT  N0,*,5X,  NTJT528C 

2  *MAT.  TYPE(NIT*1 )*,  ?X ,  *M A T ,  TYPE ( Nl T  GT  1)*)  NTJT529C 

BOOS  FORMAT (  //5X , *F OLLOW I NG  BOUNOARY  CONDITIONS  ARE  CHANGED  FOR  CURRENNT JT530C 

IT  CONST.  STAGE  *,//lX,*  NODAL  POINT*, 2X,*  TYPE*,2X,*  X  LOAD  OR  DI8NTJT531C 
2PLACEMENT*,2X,*  Y  LOAD  nR  DISPLACEMENT*)  NT JT532C 

BOOB  FORMAT ( //  5X , *  PRESSURE  BOUNDARY  CONDITIONS  TO  SIMULATE  EXC A V A T IONNT JT533C 

1  *  I  NTJT539C 

B007  FORMAT  (2112,120)  NT JT535C 

hOOA  FORMAT(I8,FP.2,2E30.5)  NT JT536C 

B100  FORMAT (  *  ELEMENT  PROPERTY  HAS  BEEN  CHANGED  *,I5,  2X,*  TIMES* *  NT JT537C 

6200  FORMAT ( //  5X,  *  THE  PRESENT  STEP  IS  GRAVITY  TURN  ON  TO  OBTAIN  NTJT538C 

*  INITIAL  STRESSES  *  //)  NTJT539C 

C  r  NTJT5A0C 

B9S0  PRINT  2019,  L^AO  NTJT5U1C 

9000  CONTINUE  NTJT5"2C 

END  NTJT5U3C 
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SUBROUTINE  NPSTMSf NSEUMPST) 

NPST 

1C 

COMMON  /ELDATA/1X(900,5),MTAG(900),EPS(900),8TR3C900,4),SEPC900, 

3 ) NPST 

2C 

COMMON  /NPOATA/  R ( 999 ) , 7 (999 ) , CODE ( 099 ) , UP ( 999 ) , U2 ( 999 ) 

NPST 

3C 

COMMON  /NP8/  PSCAV(75,3),!JBCA(50,2),NS(75) 

NPST 

4C 

DIMENSION  C(4,4) ,F (3,4) ,NSEL (4,50) 

NPST 

5C 

POINT  1005 

NPST 

6C 

on  500  1*1, npst 

NPST 

7C 

NCSNS(I) 

NPST 

ec 

DO  200  J*1 , 4 

NPST 

9C 

MM*NSEL(J,I) 

NPST 

IOC 

IN=IX(MM, 1) 

NPST 

lie 

JN=TX (MM, 2) 

NPST 

12C 

kn*ix(mm,3) 

NPST 

1 3  C 

LN*IX(MM,4) 

NPST 

14C 

XX*(R(IN)*W(JN)*R(KN)+R(|.N)  )  *0,25 

NPST 

15C 

YY*(Z(IN)*Z(JN)*Z(KN)*Z(LN) )*0.25 

NPST 

16C 

c(j,n  =  i. 

NPST 

1 7  C 

C(J,2)sXX 

NPST 

iec 

C (J,3)*vy 

NPST 

19C 

POO 

C(J,4)*XX*YY 

NPST 

20C 

DO  380  N* 1 , 4 

NPST 

2 1 C 

D*C (N, N) 

NPST 

?2C 

DO  330  J*1 ,4 

NPST 

23C 

330 

C(N, J)*-C(N,J)/0 

NPST 

24C 

DP  370  K*l,4 

NPST 

25C 

IF  (N  ,EQ,  K)  GO  TO  370 

NPST 

26C 

DP  360  J* 1 , 4 

NPST 

27C 

IF  ( N  ,  EQ ,  J)  GO  TO  360 

NPST 

28C 

C(K,J)*C(K,,J)*C(K,N)*C(N,J) 

NPST 

29C 

3*0 

CONTINUE 

NPST 

30C 

370 

C(K,N)*C(K,N)/D 

NPST 

31C 

C(N,M)*1./D 

NPST 

32C 

3«0 

CONTINUE 

NPST 

33C 

DP  390  K*l,3 

NPST 

34C 

DO  390  L*l,4 

NPST 

35C 

3*0 

F(K,L)*0,0 

NPST 

36C 

DP  450  K«l,3 

NPST 

37C 

00  450  L*  1 , 4 

NPST 

36C 

DO  450  M»l, 4 

NPST 

39C 

mmsNSEL (M, I ) 

NPST 

40C 

F(K,L)«F(k,L)*C(L#M)*STRS(MM,K) 

NPST 

4 1 C 

450 

CONTINUE 

NPST 

42C 

DO  460  K*1 , 3 

NPST 

43C 

460 

P3CAV(I,K)*F(K,n+F(K,2)*R(NC)+F(K,3)*Z(NC)+F(K,4)*R(NC)PZ(NC) 

NPST 

44C 

PRINT  1007, NC, (PSCAV(I,K),K*i,3) 

NPST 

45C 

500 

continue 

NPST 

46C 

RETURN 

NPST 

a7C 

1  005 

FOPMAT  ( 1H1 ,/*  N.P,  SIGXX  SIGYY  SIGXY*//) 

NPST 

4SC 

1007 

FORMAT  (I5,3E15,5) 

NPST 

49C 

E  ND 

NPST 

50C 

I 
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SUBROUTINE  STIFF 

C****  CALCULATION  OF  STIFFNESS  MATRIX  FOR  FIRST  STEP  ONLYIFNANAL Y«0 
calculation  of  b  ARRAY  for  each  TIME  step  LY  0 

commhn,  ,  /  nuhnp,nUmel,nummat,numpc,acelx,acely,hed(8),nnn,np, 

1  NPC A V,REFPRS, DEPTH, NRES,N, VOL, NCALC,IBACK,M joint# MTENS.NIY, 

2  ITN(?0),PRATIO(?0) , NI STOP, NRE AD , NSTSPT , N ANAL Y 

3,nct,ncqn$t,npbcp,ncavpc 

^COMMON  /MATP/^MTYPE#RO(12) ,E(fi, 12) , AKO( 1 2) , MNTEN ( 12) ,MJMT ( 12) 


COMMON 

common 

COMMON 

COMMON 

COMMON 


ST  IF 
STIF 
STIF 
STIF 
STIF 
STIF 
STIF 
STIF 
STIF 


/Ebn!Tyi**,00'5^'MT4GC900I'^S^g°0)#STRS^00'^»SEpt900»3)9TIF 


COMMON  /ARG / 


’  r  -  1  w  »  vw/fwinuv  7Vv»^JIOLrl7UU«3 

/NPDATA/  R(999) , Z(999) ,CODE (999 ) , UR ( 999 ) ,UZ(999) 

/P3LO/  IJ8C(50,2),P3CA(75,3),NPRC(75) 

/NPS/  PSCAV(75#3)#IJ8CA(50»2)#NS(7S) 

/BANARG/  B(90),B2(90),A(90,90),A2(90,90),MBAND,ND2,NUMBLK, 

mBMAX,NB,MTAP1#MTAP2 

/ARG/  RRR(S) ,ZZZ(5),S(10, 10) ,P(10) ,RSTRS(«) ,L8AD,LM(a), 
ANGLE  (4),XJ,HH(6,10),C(«,«),EE(4),H(6,10),D(6,6), 
F(6, lO),SIG(6),OSIG(6),RR(a),HSEL(3l,«),DSIGZ 
/JNT/  FN(«50) ,FT(«50) ,NJT 


COMMON  /JNT/  FN(«50) ,FT(«50) ,N 
nd*mbmax 

-  INITIALIZATION 
NTSTOPsO 
PRINT  2010 
REWIND  9 

IF  ( MT A P 1  ,  EQ «  BO)  PRINT  3000, 
IF  (MTAP1  .EQ.  30)  PRINT  3010, 
IF  CMTAP1  .EG.  50)  PRINT  3020, 
3000  FORMAT(//  1 0 x , *  THIS  ITERATION 
1R  *,  5X ,  *  NCAUC«*,  15//) 

3010  FORmaT(//  1  OX, *  THIS  ITERATION 
1  *  NCALCs*, 15// ) 

3020  FORMAT ( //  10*.  *  TMTS  ttpoatth 


CMTAP1  .EG.  BO)  PRINT  3000,  NCALC  q^r 

IF  (MTAP1  .EG.  30)  PRINT  3010,  NCALC 

IF  (MTAP1  .EG.  50)  PRINT  3020,  NCALC  ?TIF 

FORMIT(//  10*,.  THIS  ITEB»TION  USES  ELASTIC  STIFFNESS  WITHOUT  LINE8TIF 

M  *,  bX,  *  NCALC**,  15//)  qrTF 

F;RM?I,(^.l?^/,THIS  ITER*TInN  TiNGEHT  STIFFNESS  .,5*,  ItIF 

*  ''•LAL.l*®*,  I  b  / /  )  STTF 

FPRHATI//  10X,  .  this  ITERATION  USES  ELASTIC  STIFFNESS  WITH  LINER. STIF 
,  in*  *  nc*LC«*,  15//)  .... 

REWIND  MTAP1 
RFWIND  MTAP2 
NllMRLK*o 

NJJ«0  STIF 

00  4*9  N«1,ND 

b2(n)bq.o 

IF  (NCALC  .GT.  3)  GO  TO  60 

ASSIGN  170  TO  NEXT  rl JL. 

do  50  n«i,nd2 

DO  50  M«1,ND 

*(*»*>  » o.o 

form  stiffness  matrix  in  BLOCKS  2;}c 

MllklUl  ilNllnUOl  I/.I  oixr 


3000, 

3010, 

3020, 


STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 


NI.IMBLKBNUMBLK-H 

NH«NB*(NUMBLK+1 ) 

NMbNH-NB 

NL«NM-NB+1 

K3HIFT«2*nl-2 

ADD  CONCENTRATED 

DO  250  N*NL,NM 

I F  ( N  .GT.  NUMNP) 

Ke2*N-KSHIFT 

R(K)«UZ(N)+B2(K) 

B2(K)«0,0 


FORCES  WITHIN  BLOCK 
GO  TO  251 


STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 

STIF 


1C 

2C 

3C 

ac 

SC 

6C 

7C 

ec 

9C 

IOC 

lie 

12C 

13C 

iac 

15C 

16C 

17C 

iec 

19C 

20C 

21C 

22C 

23C 

2«C 

25C 

26C 

27C 

2«C 

29C 

30C 

3 1 C 

32C 

33C 

34C 

35C 

36C 

37C 

38C 

39C 

«0C 

4*  1  C 

42C 

«3C 

aac 

«SC 

46C 

47C 

«6C 

U9C 

50C 

SIC 

52C 

53C 

54C 

55C 

56C 
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I 


«(K-n*H9(M)+92(K-l  ) 

STIF  57C 

B?(K-1 )s0,0 

STIF  58C 

25  0 

CONTINUE 

STIF  59C 

251 

continue 

ST IF  60C 

IF  (L8AD  ,ME,  0)  PRINT  2300 

STIF  6 1 C 

2300 

FORMAT  (*  PRESSURE  B,  C.  NOT  CALCULATED  SINCE  LBAD  .NE.  0*) 

STIF  62C 

IF  (LBAD  .NE,  0)  GO  TO  350 

STIF  63C 

IF  (NIT  .GT.  1)  GO  TO  350 

STIF  69C 

IF(NUMPC  .ED.  0)  GO  TO  310 

STIF  65C 

CALL  NPFORC(NUMPC» IJBC,NPBCP,  P8CA  , NL » NM, KSHIFT , NNN, PRATIO, R, 

STIF  66C 

1 

Z » B »  NP0C  #  CODE ) 

STIF  67C 

310 

CONTINUE 

STIF  68C 

IF(NPCAV.EQ.O)  GO  TO  350 

STIF  69C 

CALL  NPFORC (NCAVPC, I J8C A , NPCA V , P$C A V , NL, NM , KSHIFT , NNN , PRATIO, R, 

STIF  70C 

1 

Z » B, NS  *  CODE ) 

STIF  7 1 C 

350 

CONTINUE 

STIF  72C 

DO  210  N*1 ,  NlJMEL 

STIF  73C 
STIF  79C 

IF  (IX(N,5))  210,210,65 

STIF  75C 

65 

DO  80  1*1,9 

STIF  76C 

IF  (IX(*S,I).NL)  00,70,70 

STIF  77C 

70 

IF  (IXlN,I).NM)  90.90,80 

STIF  78C 

00 

CONTINUE 

STIF  79C 

GO  TO  210 

STIF  BOC 

90 

IF  (MJOINT  ,EQ.  0)  GO  TO  93 

STIF  8 1 C 

MTYPE*IX(N,5) 

STIF  82C 

DO  91  1*1, MJOINT 

ST IF  83C 

91 

IF  (MTYPE  .EG,  MJNT(D)  GO  TO  92 

STIF  89C 

GO  TO  93 

STIF  85C 

9? 

njt*njt*i 

STIF  86C 

IF  (NCALC  .GT.  33  GO  TO  209 

STIF  87C 

call  JTSTIF 

STIF  88C 

IF  (VOL  .GT.  0.0)  GO  TO  165 

STIF  89C 

LBAD  =  LBADM 

STIF  90C 

GO  TO  209 

STIF  91C 

93 

IF  (NCALC  .GT,  3)  GO  TO  95 

STIF  92C 

IBACK=0 

STIF  93C 

CALL  QUAD(MTAPl) 

STIF  99C 

IF  (VOL  , LE,  0,0)  GO  TO  209 

STIF  95C 

95 

CONTINUE 

STIF  96C 

99 

CALL  LOAD ( 1 , MT AP 1 ) 

STIF  97C 

1  UU 

IF(IX(N,3)-IX(N,U))  195,165,195 

STIF  98C 

195 

DO  151  11*1.9 

STIF  99C 

CC*S(II,10)/S(10.J0) 

STIF 1 00C 

P(II)*P(II)«CC*P(10) 

STIF101C 

DO  150  J J* 1 , 9 

STIF102C 

150 

S(II,JJ)*S(II,JJ)»CC*S(10,JJ) 

STIF103C 

151 

CONTINUE 

STIF109C 

DO  161  11*1,8 

3TIF105C 

CC«S(II,9)/S(9,9) 

STIF106C 

P(II)sP(II)-CC*P(9) 

STIF107C 

IF  (NCALC  ,GT,  3)  GO  TO  161 

STIF108C 

DO  160  J.T*  1 , 8 

STIF109C 

160 

S(II,JJ)*S(II, JJ)-CC*S(9, JJ) 

STIFilOC 

161 

CONTINUE 

STIF1 11C 

165 

DO  166  1*1,9 

STIF112C 

( 
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166 

L*(I)s2*IX(N,n*2 

STIF113C 

Dn  200  Isi  ,u 

STIF1 14C 

DO  200  K=i,2 

STIF115C 

IIsLV(n+K-KSHIFT 

STIF116C 

KK=2*I-2+K 

STIF117C 

H(II)«B(II)9P(KK) 

STIFU6C 

GO  TO  NEXT  t  (199,170) 

STIF119C 

170 

DO  196  J*l,« 

STIF120C 

DO  196  L  =  1  #  2 

STIF121C 

JJSLM(J)+L-II+1-KSH1FT 

STIF122C 

LL*2* J-2+L 

STIF123C 

Ip(JJ  .LF.  0)  GO  TO  196 

STIF124C 

A(JJ,II)  *  A(JJ.II)  ♦  S(KK,LL) 

STIF125C 

196 

continue 

STIF126C 

199 

continue 

STIF127C 

200 

CONTINUE 

STIF128C 

209 

IX(N,5)  s  -IX(N.S) 

STIF129C 

210 

continue 

STIF130C 

IF  (LPAD  ,NE,  0)  GO  TO  405 

STIF131C 

IE  (NCALC  .  IE •  3)  "RITE  (MTAP2)  A,A2 

STIF132C 

IF  (NCAIC  .GT.  3)  READ  (MTAPp)  A,A2 

STIF133C 

2.  DISPLACEMENT  9,C. 

STIF134C 

do  aoo  MaNLfNH 

STIF135C 

IF  (M  ,GT.  NUMNP)  GO  TO  401 

STIF136C 

Ne?*M-l-K3HlFT 

9TIF137C 

IF  (CODF(M)  ,LE.  0.0)  GO  TO  400 

STIF13BC 

316 

IF  (CODE(M)  ,EO,  2.0)  GO  TO  390 

STIF139C 

CALL  MODIFY  ( A,8,ND2f MBAND,N,UP(m)) 

STIF140C 

IF  (CODE ( M )  .EG.  1.0)  GO  TO  400 

STIF141C 

390 

N  *  N  ♦  1 

STIF142C 

call  MODIFY  (A,B,ND2,M8AN0,N,UZ(M)) 

STIF143C 

900 

CONTINUE 

ST  IF  *  44C 

401 

continue 

STIF149C 

WRITE  BLOCK  OF  EQUATIONS  ON  TAPE  AND  SHIFT  UP  LOWER  BLOCK 

ST  IF  1 46C 

WRITE  (9)  B 

STIF147C 

IF  (NCALC  .LE.  3)  WRITE  (9)  A 

STIF148C 

40b 

IF  (NM  , GF ,  NUMNP)  GO  TO  480 

STIF149C 

IF  (LBAD  .NE.  3)  GO  TO  60 

STIF150C 

IF  (NCALC  .GT.  3)  GO  TO  60 

STIF151C 

00  420  N«1,ND 

STIF152C 

DO  420  M* 1 »  NO 

STIF153C 

A(M#N)*A2(M,N) 

STIF154C 

420 

A2(M,N)aO,0 

STIF155C 

GO  TO  60 

3TIF156C 

STIF157C 

480 

CONTINUE 

STIF158C 

ASSIGN  199  T(J  NEXT 

STIF159C 

500 

RETURN 

STIF160C 

2010 

format ( l h i ) 

STIF161C 

END 

STIF162C 

ri  r>  o 


B-15 


SUBROUTINE  OUAD(MTAPl) 

COMMON  /  /  NliMNP*NUMEl  , NUMM A T , NUMPC , ACEL X , ACEL Y , HED ( 8 3 , NNN , NP , 

1  NPC A V,REFPRS, DEPTH, NRES, N, VOL, NCALC, IB ACK,M JOINT. MTENS, NTT, 

2  ITN(20) ,PRATIO(20),NI$TOP,NREAD,N3T3RT,NANALY 
3,NeT,NCON8T,NPBCP,NCAVPC 

COMMON  /MAT P/  MTYPE,RO(12),E(8,123,AKO(123,MNTEN(l23,MJNT(12) 

1  »CRAC(12) 

COMMON  /ELOATA/IX(900,5) , MT AG (900 3 , EPS (900 3 , STRS ( 900 , 4 3 , SE P ( 900 , 
COMMON  /NPDATA/  R ( 999 ) , Z ( 999 ) , CODE ( 999 ) , UR ( 999 ) , UZ ( 999 ) 

COMMON  /ARC/  RRR(53,ZZZ(53.S(10,103,P(103.R3TRS(4),LBAD,LM(43. 

1  ANGLE(43,XI,hH(6,103.C(4,43,EE(43,H(6,10),D(6,6>, 

2  F(6,l0),SIG(fc),DSIG(63»RR(4J,HSFL(31,4),DSIGZ 


I*IX(N, n 
J*IX(N,2) 
*slX(N,3) 
L*IX(N,43 
MTYPE*IX(N,53 


VOLeo. 


C 

C  FORM  STRESS-STRAIN  relationship  FOR  plane  STRAIN 
C 

NEP*0 


call  STRSTR(STJ1,STJ2,SIGZT#NEP.N,ncalC) 


form  QUADRILATERAL  STIFFNESS  MATRIX 


no  94  M*l,4 
mm=IX(N,M3 

93  RRR(M)«R(HM) 

94  ZZZ(M)«Z(MM) 


DO  100  ii*i , in 

p(in*o.o 

DO  95  JJ*i,6 
95  HH(JJ,JI)«0.0 
DO  100  JJ*I,10 
100  S(II,JJ)*0,0 
DO  119  11*1,4 
DO  lift  I J*1 , 31 

118  HSEL(IJ#m*0.0 

jj*ix(n,ii) 

119  ANGLE(II)*CODE(JJ)/S7,3 


FORM  BAR  STIFFNESS 


IF  (IX(N,2)-IX(N,3»  250,240,250 
240  DR*R(J)-R(I) 

Dz«z(J)*zm 

XL*SQRT(DR**2+DZ**2) 

RRR(5)*(R(I)+R(J))/2t-2,*EEC4)*DZ/XL 

ZZZ(5)*(Z(ljTZ(J))/2,+2,*EE(4)*DR/XL 

IF  (NCALC  .NE.  1  .OR.  NRE3  , GT .  03  GO  TO  242 

IF  (NREAD  .EQ.  l.OR.NNN.GT.l.OR.NCT.GT.13  GO  TO  242 

IF  (RO(MTYPE)  .EQ,  0,  .AND.  E (2, MTYPE  3  ,LE.  1.3  GO  TO  242 

CALL  INITST 


QUAD 

1C 

QUAD 

2C 

GUAD 

3C 

QUAD 

4C 

QUAD 

5C 

QUAD 

6C 

QUAD 

7C 

3  3  QUAD 

ec 

QUAD 

9C 

QUAD 

IOC 

QUAD 

lie 

QUAD 

12C 

QUAD 

13C 

QUAD 

1  4C 

QUAD 

15C 

QUAD 

16C 

QUAD 

17t 

QUAD 

18C 

QUAD 

19C 

QUAD 

20C 

QUAD 

2iC 

QUAD 

22L 

QUAD 

23C 

QUAD 

24C 

QUAD 

2SC 

QUAD 

2&C 

QUAD 

270 

QUAD 

20 : 

QUAD 

29  * 

QUAD 

so,: 

QUAD 

MO 

QUAD 

3::c 

QUAD 

33C 

QUAD 

34  C 

QUAD 

35: 

QUAD 

361 

QUAD 

37- 

QUAD 

If  £ 

QUAD 

3 

QUAD 

4o: 

QUAD 

4  1C 

QUAD 

QUAD 

430 

QUAD 

44C 

QUAD 

45C 

QUAD 

«6C 

QUAD 

47C 

QUAD 

40C 

QUAD 

49C 

QUAD 

50£ 

QUAD 

510 

QUAD 

520 

QUAD 

530 

QUAD 

54  e 

QUAD 

55C 

QUAD 

56C 

|  242  CONTINUE 

I  CALL  TRISTKi.2,5) 

Gn  TO  130 
t  250  CONTINUE 

IF  (K  .NE.  L  )  GO  TO  125 
RPR(5)*(RRP(l)*WRP(2)+RRP(3))/3,0 
Z7Z(5)*(ZZZf l)+ZZ7(2)+ZZZf3))/3.0 
IP  (NNN  ,GT.  1  .OR.  NCT  .GT.  1)  GO  TO  121 
IF  CNCAlC  .NE,  1  .OR.  NRES  ,GT ,  0)  GO  TO  121 
IF  (NREAD  .EQ.  1)  GO  TO  121 

IF  (RO(MTYPE)  .EQ.  0 ,  .AND.  E(2,MTYPE)  .LE.  1.)  GO  TO  121 
CALL  INITST 

121  CONTINUE 

CALL  TRI3TF (1,2,3) 
vhl  s  xl 

IF  (VOL  .GT.  0.0)  GO  TO  130 
C  ERROR  RETURN 

122  LR AD  *  LBAD  ♦  1 
GO  TO  135 

125  VOL*0,0 

WRR(5)*(R(I)>R(J)+R(K)*B(L))/4,0 
ZZZ(5)*(Z(IHZ(J)  +  Z(K)*Z(L))/4,0 
IF  (NRES  ,GT,  0)  GO  TO  126 
IF  (NREAD  .EG.  1)  GO  TO  126 

IF  (MCALC  . NE «  1  .OR.  NNN  ,GT,  1  .OR.  NCT  .GT.  1)  GO  TO  126 
*  CALLRINIT3TE5  ,E°*  °*  **N°*  £C2'HTYPE)  .LE.  1.)  GO  TO  126 

126  CONTJMUF 

CALL  TRlSTF(af 1,5) 

CALL  THISTF (1,2,5) 

CALL  TRISTF (2,3,5) 

CALL  TRISTF (3, 4*5) 

IF  (VOL  .LE,  0.0)  GO  TO  122 
145  DO  140  11*1,6 
DO  140  JJ*1,10 
140  H*4(XI, JJ)*HU(II,JJ)/4.0 
130  CONTINUE 

WRITE (MTAP1)  N,S,Hh,RRR(5)#ZZZ(5),CfP»HSEL 

135  RETURN 
END 


QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QI'AD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 

QUAD 


57C 

58C 

5RC 

60C 

61C 

62C 

63C 

64C 

65C 

66C 

67C 

66C 

69C 

70C 

7 1C 

72C 

73C 

74C 

75C 

76C 

77C 

78C 

79C 

80C 

8 1 C 

82C 

83C 

84C 

sse 

«6C 

87C 

eec 

89C 
90C 
9 1 C 
92C 
93C 
94C 
95C 
96C 


SUBROUTINE  PPTNST  (SIG) 

DIMENSION  SIGC6) 

CC*(SlG(l)+SIG(2))*0a5 
9Ba(SIG(l )-SIG(2) ) *0 .5 
CR*8QRT(BB**2+SIG(3)**2) 

SIG(«)sCC*CR 

SIG(5)*CC-CR 

C*****slG (6)  IS  AN  ANGLE  MEASURED  FROM  R»AXIS  TO  THE  PLANE  ON  WHICH 
C****  minor  PRINCIPAL  STRESS  ACTS,  POSITIVE  IF  COUNTERCLOCKWISE 
SIG(6)s45, 

IF  (89  .NE,  0.)  SIG(6)*2S,6478fl*ATAN2(3IG(3),BB) 

RETURN 

END 


PRIN  1C 
PRIN  2C 
PRIN  3C 
PRIN  4C 
PRIN  5C 
PRIN  6C 
PRIM  7C 
PRIN  8C 
PRIN  9C 
PRIN  10C 
PRIN  11C 
PRIN  12C 
PRIN  13C 
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S'.lbRni'TIMF  TRISTF  (II,  JJ.KK) 

COMMON  /  /  NUMNP,NUM6L#NUMMAT#MIMPC, ACELX,ACELY,HED(8) ,NNN,Np, 

1  NPCAV,REFPR5,0EPTH,NRE3,N, vol,ncalc,I8ack,mjoin7#mtenc,nI7# 

?.  I7N(20) ,PRA7IO(20) ,NI370P,NREAD,N37SRT,NANALY 

3,NCT,NCnN3T,NPBCP,NCAVPC 

COMMON  /MAT P/  M7YPE,RO(12),E(8,12),AKO(12),MN7EN(12),MJN7(12) 

1  , CRAC ( 12) 

COMMON  /ARC/  RRR(5),ZZZ(5)#3(10.10)#P(10),RS7R3(4),LBAD,LM(4), 

1  ANGLE(4),XI,HH(6,10),C(4,4),EE(4)  ,H(6,10)  ,D(6,6), 

2  F  (6, 10) ,316(6) ,DSIG(6),RR(4) »H3EL(3l,4) »  DSIC7 

DIMENSION  ZZ(4),DD(3,3),HSAVE(3.10),H8(31) 

EQUIVALENCE  (F(l,l).HS(t) ,MSAVE(1,1)) 

IBACKsIRACKf! 

C  1.  INITIALIZATION 

LM(l)xII 
LM(2)sJJ 
LM(3)=KK 
PR ( 1 ) sRRR (II) 

RR(2)«RRR(JJ) 

RR (3) *RRR (KK ) 

PR ( 4 ) *RRW (II) 

ZZd)sZZZ(II) 

Z Z ( 2 ) «ZZZ ( J J ) 

ZZ(3)*ZZZ(KK) 

ZZ(4)*ZZZ(II) 

85  DO  100  1*1,6 
DO  90  J*l,10 
F  (  I ,  J)*0.0 
90  H(I,J)«n,0 
DO  100  J*1  #  6 
100  D(I,J)*0.0 

C  FORM  INTEGRAL(G)T*(C)*(C) 

COMM*RR(2)*(ZZ(3)-ZZ(t ) )*RR(1)*(ZZ(2)-ZZ(3) ) *RR ( 3 ) * ( ZZ ( 1 )*ZZ (2) ) 

XI  =  COMM  /  2,0 

IF  (XI  ,GT,  0,0)  GO  TO  102 

PRINT  1000,  II,JJ,KK,  N 

LBAD*LBAD+1 

1000  FORMAT  (32H  ZERO  OR  NEGATIVE  AREA,  TRI ANGLE3I6, 5X, 7HELEMENTI5) 
return 

102  VOLaVOLfXl 

D(2,2)*XI  *C(1,1) 

D ( 2, 6)  ■  XI  *  C ( 1 » 2) 

D (3#  3) *XI  *C ( 4 , 4 ) 

D(3,5)*XI  *C ( 4, 4 ) 

D(5,5)*XI  *C ( 4 , 4 ) 

D(6,6)*XI  *C(2,2) 

0(2, 3)a  XI*C( 1 ,4) 

0(2.5)10(2,3) 

0(3,6)*  XI*C(4,2) 

0(5,6)*D(3#6) 

106  DO  110  1*1,5 

K  a  I  +  1 
DO  110  J  *  K , 6 
110  D(J, J)*DCI,J) 

C  FORM  COEFFICIENT-DISPLACEMENT  TRANSFORMATION  MATRIX 

DD(1#1)*(RP(2)*ZZ(3)-RR(3)*ZZ(2) )/COMM 


TRIS  1C 
TRIS  2C 
TRIS  3C 
TRIS  4C 
TRIS  5C 
TRIS  6C 
TRIS  7C 
TRIS  6C 
TRIS  9C 
TRIS  IOC 
TRIS  11C 
TRIS  12C 
TRIS  13C 
TRIS  1 4C 
TRIS  iO£ 
TRIS  il  : 
TRIS  1 7C 
tris  is:. 

TRIS  iOi! 
TRIS  20C 
TRIS  2 1 C 
TRI J  d?X 
TRXs  22C 
TRIO  24C 
TRI3  25C 
TRIS  26C 
TRIS  27C 
TRIS  20C 
TRIS  29C 
TRIS  30C 
TRIS  31C 
TRIS  32C 
TRIS  33C 
TRIS  34C 
TRIS  35C 
TRIS  36C 
TRIS  37C 
7RIS  38C 
7RIS  39C 
7RI3  40C 
7RIS  4 1 C 
7RIS  42C 
7RIS  43C 
TRIS  4<1C 
TRIS  45C 
TRIS  HbC 
TRIS  47C 
7RIS  40C 
7RIS  49C 
7RIS  50C 
7RIS  51C 
TRI3  52C 
7RI2  53C 
7PIS  54C 
7RIS  55C 
7RIS  56C 


! 
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DD(1 ,?}*(BP(3)*ZZf 1)-RR(1 )*ZZ(3))/C0MM 

DD(l,3)a<PR(l3*ZZ(23-RR(2)*ZZ<l 3  3/COMM 

0D(2,13*(ZZ(2)-ZZ(33)/C0MM 

DD(2,23«(ZZ(33-ZZ(l)3/COMM 

DD(2,3)*<ZZ(1  3-ZZ(?33/COMM 

PD (3, l)*(RR(33-RP(2)>/COMM 

D0(3.?)*<RR(1 )-RR(l) 3 /COMM 

DDC3,3 )*(RR (2 >-RR(P  3/COMM 

DH  IPO  1*1,3 

J*2*LM(I3-1 

H(lf J)sOD(l*T) 

M(2,J)«pnC2,I) 

Hf3,  J)-~DD(3,I3 
H(4,  JM)*DD(1,I) 

Hf5, J+1)*DD(2,I) 

120  n  f  to , J  + 1 3 *00 (3,13 

C  rotate  unknowns  if  required 

DO  125  J*1 , 2 
I»LH(J) 

IF  (ANGLE  C 1 3  )  122,  125,125 
122  3INA«SIN(ANGLE(I33 
COSA*COS(ANGLE(I33 
I J*2*I 

DO  12«  K*  1 ,  ft 
TEMaH(K,IJ-l) 

H(K,IJ-l)*TEM*COSA  +  H(K,  I J1*SINA 

124  H(K,IJ)«  *TEM*SINA+H(K, IJ?*COSA 

1 25  CONTINUE 

C  FORM  ELEMENT  STIFFNESS  MATRIX  (H)T*(D)*(H) 

DO  130  J*l,10 
DO  130  K*1 » 6 

IF (  H(K, J)  ,EO.  0.03  GO  TO  130 
128  DO  129  T*1 ,ft 
1?9  F(I,J)*F(I, JJ*D(I»K)*H(K, J) 

130  CONTINUE 

DO  140  1*1,10 
00  140  K*  1 , 6 

IF  ( H (K , 1 3  .EQ.  0,03  GO  TO  140 

138  DO  139  J*l,10 

139  S(I, J3«S(I,J)*H(K,I)*F(K,J) 

140  continue 

C  FORM  RESIDUAL  LOAD  MATRIX 

c****  form  residual  load  MATRIX 
150  DO  160  1*1,10 

HSA  VE ( 1 » I )*H (2, 1 ) 

HSAVE(2,I3*H(6,I3 
160  HSAVE(3,I3*H(3,I3+h(5,I) 

C  ACCELERATION  LOADS 

IF  (NCALC  ,NE.  1 .OR.NCT »GT •  1 3  GO  TO  171 
IF(NREAD.EQ.1.0R.NNN.GT.l j  GO  TO  171 
IF  (ACELX.EQ.  0.0  .AND,  ACELY.EQ,  0.0)  GO  TO  171 
COMM  a  RO(MTYPE3  *  XI  /  3.0 
DO  170  1*1,3 
•Is2*LM(  1 3*1 

R(J3  =  P(J)-ACELX*COMM 
170  P(J*13  *  P(J*1)  -  ACELY*CDMM 


TPIS  57C 
TRIS  58C 
TRIS  59C 
TRIS  60C 
TRIS  61 C 
TRIS  62C 
TRIS  63C 
TRIS  64C 
TRIS  65C 
TRIS  66C 
TPIS  67C 
TRIS  68C 
TRIS  69C 
TRIS  70C 
TRIS  7 1 C 
TRIS  72C 
TRIS  73C 
TRIS  7UC 
TPIS  75C 
TRIS  76C 
TRIS  77C 
TPIS  78C 
TRIS  79C 
TRIS  80C 
TPIS  8 1C 
TRIS  82C 
TRIS  83C 
TRIS  04C 
TPIS  85C 
TRIS  86C 
TRIS  87C 
TRIS  88C 
TRIS  89C 
TRIS  90C 
TPIS  91 C 
TPIS  92C 
TRIS  93C 
TRIS  94C 
TRIS  95C 
TRIS  96C 
TRIS  97C 
TRIS  90G 
TRIS  99C 
TRisiooe 

TRIS101L 

TRIS102C 

TRIS103C 

TPIS104C 

TRIS105C 

TRIS106C 

TRIS107C 

TRIS108C 

TRIS109C 

TPIS110C 

TRIS1UC 

TRIS112C 
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171  CONTINUE 

FORM  STRAIN  TRANSFORMATION  MATRIX 

«on  no  aio  1*1,6 
DO  «10  J*1 , 10 
aio 

HS(3l )*XI 
Pn  a?o  !*i,3i 
«20  HSEl(I,IBACK)«HS(I) 

RETURN 

ENO 


TRIS113C 

TRISllflC 

TRIS115C 

TRISU6C 

TRIS117C 

TRIS118C  | 

TRI8119C 

TRI8120C  . 

TRI8121 C  i 

TRI3122C 


•SUBROUTINE  mOPIFY(A,B,NEQ,MBAND,N,U) 
DIMENSION  A(90, 1805,9(180) 

C 

C 

DO  250  M*2, MBAND 
KxN»M+1 

IF  ( K  ,  LE  •  0)  GO  TO  235 
IF  (A(M,K)  ,EQ,  0,0)  GO  TO  235 
9(K)  *  B (K)  -  A ( M , K )  *  U 
A(M,K)  *  0,0 
235  K*N*M-1 

IF  (K  , GT ,  NEG)  GO  TO  250 
IF  ( A ( M , N )  ,EQ,  0,0)  GO  TO  250 
8  (K )  *  B  (K)  -  A  (M,  N)  A  U 
A ( M , N )  x  0,0 
250  CONTINUE 

A ( 1 , N )  ■  1,0 
B  (  N )  x  IJ 
C 

RETURN 

end 


MODI  1C 
MODI  2C 
MODI  3C  I 
MODI  aC 
MODI  5C 
MODI  6C 
MODI  7C  I 
MODI  6C  3 
MODI  9C 
MODI  IOC 
MODI  11C 
MODI  12C 
MODI  13C  j 
MODI  14C 
MODI  15C  1 

MODI  16C 
MODI  1 7  C  | 
MODI  18C 
MODI  19C 
MODI  20C 
MODI  2 1 C 


! 
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1 


1 

2 


COMMON 

COMMON 

COMMON 


r 


c** 


c 

c 

c 

c 


SUBROUTINE  JT3TIE 

COMMON  /  /  NUMNP,NlJMEL#NUMMAT,N!JMPC,  ACELX,ACELY,HED(8),NNN, 

1  AV,RhFPB9,0EPTH»NRE3*  N, voi .NCALC# IBACK,MJUINT#  MTEN3,NIT, 

?  ITN(?0),P»ATIO(20),N13TOP,NPEAD,N8TSRT»NANAL.Y 

■5»NCT,NCONST.NPBCP,NCAVPC 

common  /MATP/  MTYPE#R0(12),E(B, 12),AK0(1?),MNTEN(12) ,MJNT(1?) 

#CRAC(12) 

/ELOATA/IX(900,5)#MTAG(90C ) » EPS (900 ) , 3TR? (900 » 4 ) , SEP (900 , 4)JT3T 
/MPD4TA/  R(999) ,Z(999) ,CODE (999),UR(999) ,UZ(999) 

/ARG/  PPR(5)#ZZZ(5)#S(10# 10)  ,Pf 10) , RSTRSC4) ,LB*D, LM(4) , 
ANGLE(4),XI,HH(6, 10),CC4,4),EE(4),H(6,10),D(6,6), 
FC6,10),9IGC6),DSIG(6),RR(4),HSfcLC3l,4),DSIGZ 

COMMON  / JNT /  FNf450),FT(450) ,NJT 
DIMENSION  ESTIF(10#10)#PPP(8)#TR(2#2)»Y(4,4) 

EQUIVALENCE  (L,VOl ),($(l,i),ESTIF(l,l)) 

REAL  K3,KN,L 

Y/2*,l,,*l,,a2«,l,,2, »«2,»»l,»-l,,-2,»2,*l,»-2,*-l,»l,#2,/ 

1 1* I X ( N, 1  ) 

JJ«  I  X  ( N »  2  ) 

DR«R(JJ)-R(m 
DZ*Z( JJ)-Z(II) 

L«3QRT(0R*DR*DZ*DZ) 

IFCL.EQ.O.)  GO  TO  201 
MTYPE*IX(N,5) 

IF(  NRE3  ,GT,  0)  GO  TO  40 
IE(NCALC.NE.l)  GO  TO  40 
IFtNNN.GT, 1 .OR.NCT.GT.l)  GO  TO  40 
IF(NREAD  ,EQ.  1)  GO  TO  40 
RRR(5)*0.5*(R(JJ)+R(II)) 

ZZZ(5)«0.5*(Z(JJ)+Z(II)) 

CALL  INITST 
40  CONTINUE 
MATERIAL  PROPERTIES 
KN«E(1,MTYPE) 

KS«E (?»  MTYPE) 

C0MS»KS*L/6, 

comn«kn*l/6. 

INITIALIZE 
DO  100  II»1,8 
P(II)«0,0 
PPP(II)«0.0 
DO  100  JJ*1,8 
ESTIF(II,JJ)«0,0 

DEVELOP  RESIDUAL  STRESS  CONTRIBUTIONS  TO  THE  LOAD  VECTOR 
FOLLOWING  SIGN  CONVENTION  IS  ADOPTED, THE  NORMAL  STRESS  IS  POSIT 
DIRECTED  OUTWARDS  THE  ELEMENT  ON  THE  FACE  CII,JJ),THE  SHEAR  STRESS 
WHEN  DIRECTED  FROM  JJ  TO  II  AND  LL  TO  KK  ON  THE  ELEMENT, 

TR ( 1 , 1 ) «DP/L 
TRfl,2)«DZ/L 
IF(NCALC.NE.l)  GO  TO  162 
IFCNNN.GT.l.OR.NCT.GT.l)  GO  TO  162 
IF  (NRES  ,E(3,  0  ,OR,  NRES  ,EQ,  2)  GO  TO  162 
SC  a  TRC1,1)  *  TR ( 1 , 2 ) 

32  a  TR(1,2)  **  2 

C2  s  TR(1,1)  **  2 

1 1 1  PSTRStl )«STRS(N, 1)*S2*STRS(N,2)*C2-2,*STRS(N,3)*SC 


50 


100 


THE 


JTST 

1C  ! 

»,  JTST 

2C 

JTST 

3C 

JTST 

4C 

JTST 

5C 

JTST 

6C 

JTST 

7C 

l.  iJJTST 

8C 

JTST 

9C 

JTST 

IOC 

JTST 

1  1C 

JTST 

1 2  C 

JTST 

1 3  C 

JTST 

14C 

JTST 

15C 

JTST 

1 6C 

JTST 

17C 

JTST 

1BC 

JTST 

19C 

JTSY 

20C 

JTSY 

21 C 

JTST 

22C 

JTSY 

2  3C 

JTSY 

24C  | 

JTST 

JTST 

»i »  ] 

<k-  *y  0 

JV3f 

*J  *'  •*  1 

<  v 

JTSY 

/)  ft 

A.  W  » 

JTST 

*  /»  1 

»-  v/  ; 

JTST 

Tw*  I 

W  V 

JTST 

31  C 

JTSY 

lie 

JTSY 

.3 .  ? 

JTST 

3<SC 

JTST 

33C 

JTST 

36C 

JTST 

3 7£ 

JTST 

30C 

JTST 

39C 

JTST 

40C 

JTST 

4 1 C 

JTST 

42C 

JTST 

43e 

JTST 

44C 

IVEJTST 

45C 

IS  JTST 

46C 

JT3T 

47J 

JT3T 

43J 

JTST 

49C 

JTST 

j$C 

JTST 

sic 

JTST 

52C 

JTST 

53C 

JTST 

54  C 

JTST 

55C 

JTST 

56C 

RSTRSf 2)*(STRS(N,2)-STRS(N,  1 ) ) *SC- ( 9TRS(N, 1) * CS2-C2) ) 
EL2  *  L  /  2,0 
do  t ^ o  i*i, n 
J*2*I-1 

PPP(J)  s  PSTPS(l)  *  £12 
J*2*I 

160  PPP(J)  a  RSTPS(2)  *  EL2 
DO  161  1*1, a 

161  PPP(I)s-PPPCX) 

162  CONTINUE 

DO  200  11*1, a 
19*2*11-1 
INa2*H 
DO  200  JJal.a 
J9  o  ?*JJ-1 
JM  *  2*JJ 

FfTlF (IS.JS, *C0MS*V(II,JJ) 

200  E3T  IF (IN,JN)*CQMN*Y(II#JJ) 

ROTATE  TO  GLOBAL  COORDINATES 
TR(2,1)  «  -TR(1#2) 

TR ( 2 , 2  )  *  TP ( 1 , 1 ) 

IF  (TR  ( 1 , 1 )  ,E<5»  1 , )  GO  TO  405 

DU  400  NN* 1,4 

DO  410  11*1,6 

J J=  2*NN-1 

TEMP  *  E9TIF (II, JJ) 

00  410  KK« 1 « 2 

ESTXFCII,  JJ)«TFMP*TP(1,KK)+E5TIFCII,2*NN)*TP(2,KK) 
410  JJ*JJ+1 

DO  420  11*1,8 

J J*2*NN- 1 

TEMP  *E8TIF C JJ, II ) 

DO  420  KK«1 ,2 

E9TIF(JJ,m*TR(l#KK)*TEMptTR(2,KK)*E3TIF(2*NN,TI) 
420  JJ*JJ*l 

400  CONTINUE 
405  CONTINUE 

IF  (NRES  .EQ.  0  .OR.  NRES  .EG.  2)  GO  TO  402 
DO  401  1*1,4 
J«2*I-1 
11*2*1 

P(J)*-PPP(J)*TRC1,2)+PPP(II)*TR(2#2) 

401  R(in«  PPP(J)«TR(2,2)+PPP(II)*TP(1,2) 

40?  CONTINUE 

RETURN 

201  PRINT  2090,  N 
RETURN 

2090  FORMAT ( 1 4H  PAD  JOINT, N«  13/1 
END 


JTST  57C 
JTST  58C 
JTST  59C 
JTST  60C 
JTST  6 1 C 
JTST  62C 
JTST  63C 
JTST  64C 
JTST  65C 
JTST  66C 
JTST  67C 
JTST  66C 
JTST  69f 
JTST  70 t 
JTST  71C 
JTST  72: 
JTST  73C 
JTST  74C 
JTST  7:: 
JTST  76: 
JTST  77: 
JTST  78C 
JTST  79£ 
JTST  80C 
JTST  PIC 
JTST  82C 
JTST  03C 
JTST  C4C 
JTST  P5C 
JTST  06C 
JTST  07C 
JTST  BSC 
JTST  8DC 
JTST  90C 
JTST  91C 
JTST  92C 
JTST  93 C 
JTST  94e 
JTST  95C 
JTST  96C 
JTST  97C 
JTST  90C 
JTST  99C 
JTSTIOOC 
JTST101C 
JT5TJ02S 
JT3T103S 
JTST 10 4S 
JTST105C 
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SUBROUTINE  BANSQL  (NNN ,  A' I T ,  NC  Al  C  ) 

COMMON  /BAN ARC/  B ( 90 ) , B2 ( 9 0 3 , A ( 9 0 , 9 0 ) , A2 ( 90 , 90 3 , MB A ND , N02 , NUMBL* » 
i  MRMAX,NBB  ,MTAP1,MTAP2 

EQUIVALENCE  (MM,MBAND) 

NNsMBM^X 

NTAPE^MTAP? 

IF  (NCALC  .LE.  J)  NTAPE*9 
RE ^INO  91 
9P  PF^InO  9 
NB«0 

GO  TO  150 

C  REDUCE  EQUATIONS  BY  BLOCKS 

C  1.  SHIFT  BLOCK  OF  EQUATIONS 

100  NRsNBM 

DO  125  N« 1 , NN 
B(N)  s  B2(N) 

B2CN)  s  o.O 
DO  125  Mai, mm 
A(M,N)  a  A 2 ( M , N ) 

125  A2(M,N)  a  0.0 

C  2.  READ  NEXT  BLOCK  OF  EQUATIONS  INTO  CORE 

IF  (NUM0LK-NB)  150,200,150 
150  READ  (9)  B2 

HEAD  ( NT  APE  )  A2 
IF  (NB  ,EQ.  0)  GO  TO  100 
C  3.  REDUCE  BLOCK  OF  EQUATIONS 
200  IF  (NCALC  . CT .  3)  GO  TO  2000 
DO  300  Nc 1 , NN 

IF  ( A  ( 1  ,  N )  , EQ,  0.03  GO  TO  300 
DO  275  L«2,mm 

IF  (A(L,N)  ,EQ.  0.0)  GO  TO  275 
C  a  A  f  L ,  N )  /  A  (  1 ,  N ) 

I«N+L-1 

J*0 

DO  250  KaL,MM 
JsJM 

250  A ( J, I )  a  A ( J ,  I )  -  C  *  A(K,N3 
a (L# N)  a  C 
275  CONTINUE 
300  CONTINUE 

WRITE (MTAP2)  A 
2000  DO  2300  Ne 1 , NN 

IF  ( A ( 1 , N )  .EQ.  0,03  GO  TO  2300 
DO  2275  L*2»MBAN0 
IF  (A (L » N )  ,EQ.  0.0)  GO  TO  2275 
IaNH-1 

B(I)«B(n-A(L,N)*B(N) 

2275  CONTINUE 

B(N)*B(N)/A(1,N) 

2300  CONTINUE 

C****  WRITE  BLOCK  OF  REDUCED  EQUATIONS  ON  TAPE  91 
IF(NUMBLK  .EQ,  NB)  GO  TO  399 
375  WRITE  (91)  B 
GO  TO  100 

C  BACK-SUBSTITUTION 
399  BACKSPACE  NTAP2 


BANS 

1C 

BANS 

2C 

BANS 

3C 

BANS 

<*C 

BANS 

r«C 

bans 

to  C 

BANS 

7C 

BANS 

ec 

BANS 

9C 

bans 

IOC 

BANS 

lie 

BANS 

12C 

BANS 

13C 

BANS 

IRC 

Bans 

15C 

BANS 

16C 

PANS 

17C 

BANS 

ISC 

BANS 

19C 

BANS 

20C 

BANS 

2 1 C 

BANS 

22C 

BANS 

23C 

BANS 

2RC 

bans 

25C 

BANS 

26C 

BANS 

27C 

bans 

26C 

bans 

29C 

BANS 

3  0  C 

BANS 

3 1 C 

BANS 

32C 

BANS 

33C 

BANS 

3«C 

BANS 

35C 

BANS 

36C 

BANS 

37C 

BANS 

36C 

bans 

39C 

BANS 

roc 

SANS 

«ic 

BANS 

«2C 

bans 

R3C 

BANS 

RRC 

BANS 

R5C 

BANS 

R6C 

BANS 

R7C 

BANS 

R0C 

BANS 

R9C 

BANS 

50C 

BANS 

sic 

BANS 

52C 

BANS 

53C 

BANS 

SRC 

BANS 

55C 

BANS 

56C 

! 
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1 

1 

NTAPE«MTAP2 

bans 

57C 

400 

DP  450  M«i,MN 

BANS 

SBC 

1 

NsNNf 1 m* 

BANS 

59C 

1 

DO  425  Ka2#MH 

BANS 

60C 

4 

L*NfK-l 

BANS 

6 1 C 

425 

B C N 3  c  BCN)  -  A(K.N)  *  B CL 5 

BANS 

62C 

! 

R2(N)  c  0(N) 

BANS 

63C 

4  D  0 

A2(NB,N)  s  9  ( N ) 

BANS 

64C 

nRcnB-1 

bans 

65C 

f 

IE  (NB  ,  EQ .  0)  CO  TO  500 

BANS 

66C 

475 

BACKSPACE  MTAP2 

BANS 

67C 

BACKSFaCE  91 

BANS 

BBC 

«EAD(MTAP2)  A 

bans 

69C 

■ 

HEAD  (91)  B 

BANS 

70C 

BACKSPACE  MTAP2 

BANS 

7  1  C 

BACKSPACE  91 

BANS 

72C 

1 

GO  TO  400 

BANS 

73C 

c 

ORDER  UNKNOWNS  IN  9  ARRAY 

BANS 

74C 

50ft 

Ksfl 

BANS 

75C 

1 

DO  600  MB«1.NUMBLK 

bans 

7bC 

1 

DO  600  N«1,NN 

bans 

77C 

K»K  ♦  1 

BANS 

76C 

600 

1 

B(K)  e  A? ( NP  »  N) 

bans 

79C 

RETURN 

BANS 

BOC 

END 

BANS 

8 1 C 

I 

1 

I 

I 

I 

I 

I 

I 

I 

I 

I 


di 


100 


1?0 

150 

155 

180 

170 
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SUBROUTINE  STRESS 

COMMON  /  /  SuMNPfNUMEL#MUMMAT*NUMPC» ACEt X , ACEL Y , HED ( 8 ) ,NNN,NP, 

1  NPCAV,  RFFPPS,OEPTH,NRFS,N,Vf.ll,MCALC  ,  I B  AC  K  ,  M  JOI  NT ,  MTE  NS  ,  N  I  T  , 

2  IT*.  (20)  ,PRAT  10(20  )  ,NISTOP,NRE  AO,  NSTSRT , NANAL Y 
3,NCT»nC0NST,NPBCP»NCAVPG 

COMMON  /MATO/  *-TYPE#Pn(12),E(8,12),AK0(12),MNTEN(12),MJNT(12) 

1  ,C«AC(12) 

CnMMON  /ELDATA/IX(900»5),MTAG(900)»EPS(900),3TR3(900»9),SEP(900» 
COMMON  /BANAPQ/  B ( 180 ) , A (90 , 1  80) , MB  AND , ND2 , NUMBLK , MBMAX, NR 
1 «  MT A P 1 , MT  AP2 

COMMON  / APG /  ePP(5),ZZZ(5),S(10,10),P(l0),RSTRS(4),I.BAD,LM(4), 

1  ANGLE («),XI,MH(6,lO),C(a,4),EE(4),H(6, 10) ,0(6,6), 

2  F(6, 10) ,8IG(6) ,D9IG(6) ,RR(fl) ,H3El(3l ,a) ,DSIGZ 
COMMON  /.’NT/  F  N ( 950  )  ,  F  T  (450)  ,  N  JT 

Dimension  TP(fe),  F V  (900 ) 

DIMENSION  STRN(900,3) 

EQUIVALENCE  (STRN,A(8500)) 

EQUIVALENCE  (FY,A(u000)) 

COMPUTE  ELEMfcNT  STRE9SES 

REWIND  M T A P  1 

TEnmax=0 , 0 

NTE  N  =  0 

SPRINT  so 

NEXITrO 

DO  100  N=1,NL'MF.L 

IX(N,5)»IAB3(IX(N,5)) 

NEIMJsNIIMFL-NJT 
DO  300  mn=j , NE l m J 
CALL  L0AD(9,MTAP1 ) 

DO  120  1*1,9 
11*2*1 

JJs2*lX(N»I  ) 

P  ( 1 1  -  1 )  i  ^JJ-U 
P(II)=B(JJ) 

DO  150  1=1,2 

PR ( I ) *P ( I +8  ) 

DO  150  K=1,R 

pP(I)=RR(I)-9(I+8,K)*P(K) 

C0MM=S(9,9 i*3(10, 10)-S(9, 10)*S(10,9) 

IF  (COMM)  155,180,155 

P(9)*(S(10, 10)*RR(1)-3(9,10)*RR(2))/COMM 

P(10)=(-S(10,9)*HP(1)+S(9,9)*RR(2))/COMM 

DO  170  1=1,8 

TP(I)=0,0 

DO  170  K=1  ,  10 

TP(I)cTP(I)+HH(I,W)*P(K) 

RP(1)*TP(2) 

RP(2)=TP(8) 

PP(3)=O,0 

«P(a)=TP(3)YTP(5) 

IE  (NCALC  ,NF.  1  .OP,  NREAD  , EQ,  1)  GO  TO  175 
IF (nnm.GT. 1 .OR.NCT.GT.  1 )  GO  TO  175 
IF(NRES.GT.O)  GO  "0  173 
STRS(N,a)=STRS(N, 1 ) 

CONTINUE 

IE(AB5(STPS(N,1)).LT.0.001.AND.AB3(8TR3(N,2)).LT.0.001.AND, 


STRF 

1  c  I 

STRE 

2C  I 

3TRE 

3C  1 

STRE 

«C  Jj 

STRE 

5C  Jl 

STRE 

fcC  1 

STRE 

7C 

3 ) STRE 

ec 

STRE 

9C 

STRE 

IOC 

STRE 

lie 

STRE 

12C 

STRF 

1  3  C 

STRE 

lac 

STRE 

1 5  C 

STRE 

1  feC 

STRE 

1 7  r 

STRE 

18C 

STRE 

19C 

STRE 

20C 

STRE 

2 1 C 

STRE 

22C 

STRE 

23C 

STRE 

24C 

STRE 

25C 

STRE 

26C 

STRE 

27C 

STRE 

28C 

STRE 

29C 

STRE 

30C 

STRE 

3 1 C 

STRE 

32C 

STRF 

33C 

STRE 

3«C 

STRE 

35C 

STRE 

36C 

STRE 

37  C 

STRE 

38C 

STRE 

39C 

STRF 

90C 

STRE 

9  1  C 

STRE 

92C 

STRE 

93C 

STRE 

aac 

STRE 

95C 

STRE 

98C 

STRE 

97C 

STRE 

98C 

STRF 

aoc 

STRE 

50C 

STRE 

5 1  C 

ST  E  E 

52C 

STRE 

53C 

STRE 

59C 

PTRE 

55C 

STRE 

58C 

■UiUM 


t 


J 


\  ABS($T9S(N,3))  .LT. 0.001)  GO  TO  1 75 

'•,TJls$TR3(N,l)4STRSCN,2)4STRSCN,4) 

STJ?*f  f  3TBS(M,  n-STRSfM,2) )  **2*  ( S T RS  (  N ,  2 ) -SIRS  ( N ,  4  ) )  **i  + 
1 (STRS(N,4)«3TRS(N, 1 ) ) **Z ) /b . +  3TRS ( N , 3 ) **2 
F¥(N)*t (7.MTYPE) *STJUS0RTC9TJ2)-E(8,MTYPE) 

175  no  iao  1*1, a 
D9IG(I)«0.0 
0 J  180  K»l,4 

180  D9IC(I)sD9IGfI)*C(IiK)*PPfK) 

DSIG2  =  DS I G  C  3 ) 

DSIG(3)*D3IG(4) 

DO  181  1*1  ,3 

181  SIG(I)sP8THS(I)*08IGfI) 

DO  aoo  J»l,3 

STRS(N,JlaSTPS(N,J}48IG(J) 

S IG ( i ) * 3TRS  ( N , J  ) 

aoo  continue 

STRN(N, 1 )*RR( 1 )48TRN(N, 1 ) 

STHncn,2)«rr(2)+8Trn(n,2) 

3TRN(N,3)*RR(a)4STRN(N,3) 

on  «5o  1*1,2 
TP ( I ) *STRN  CM, I ) 

aso  continue 

TP(3)*0,5*Strn(n,3) 

CALL  PRINSTCTP) 

TP(3)*STRN(N,3) 

C  OUTPUT  STRESSES 

C  calculate  principal  stresses 

CALL  PRINST(SIG) 

IF(MTAG(N) .EG.O)  GO  TO  263 
IP(E (P,HTVPE)  ,LT,  2 , )  GO  TO  263 
IP  (MTENS  tEQ.  0)  GO  TO  570 
DO  560  J«l, MTENS 

560  IP  C^TYPE  ,  ED,  MNTEN(J))  50  TO  263 
570  CONTINUE 

IF  (SIG ( a )  ,LE.  TENMAX1  GO  TO  200 
TENMAX*SlG(a) 

NTEN*N 

200  continue 

T^AX*E(1,^TYPE) 

IF  (MTAG(N)  ,GF.  2)  GO  TO  250 
IF  ( S I G  ( U  )  ,LE.  TMAX)  GO  TO  263 
MTAG(N)=2 

250  IF  (MTAG(N)  ,EQ.  3)  GO  TO  263 
IF  (SIG (5)  ,LE.  TMAX)  GO  TO  263 
MTAG(N)*3 
263  CONTINUE 
C******* 

IF  (MPRINT  ,nE,  0)  GO  TO  110 
105  PRINT  2000 
PRINT  2U00 
PRINT  2300 
MPRINT=25 

110  mprint=mprint-i 

mPRINTbMPRINT+1 

PRINT  2001,N,RRR(5),ZZZ(5), (816(1) ,I«1,6),TP 


STPF  57C  * 

STPE  58C 
STRE  59r 
3TRE  60C 
STRE  6 1 C 
STRE  62C 
STRE  63C 
STRE  6«C 
STRE  65C 
STRE  66C 
STRE  67C 
STRE  66C 
STRE  69C 
STRE  70C 
STRE  7 1 C 
STRE  72C 
STRE  7  DC 
STRE  7«C 
STRE  75C 
STRE  76C 
STRF  77U 
STRE  78C 
STRE  79l 
STRE  8  OC 
STRE  8  1C 
STRE  82C 
STRF  83C 
STRE  6aC 
STRE  85C 
STRE  86C 
STRE  87C 
STRE  88C 
STRE  89C 
STRE  90C 
STRE  9 1 C 
STRE  92C 
STRE  93C 
STRE  9«C 
STRE  95C 
STRE  96C 
STRE  97C 
STRE  98C 
STRE  99C 
STRE100C 
STRE101C 
STRE102C 
STRE103C 
STRElOae 
STRE 1 05C 
STRE106C 
STRE107C 
STRF108C 
STRE109C 
STRE 1 1 OC 
STRE 1 1 1 C 
STRE 1 12C 


hi 


—  — — —  . 
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117  CALL  tPi  AST(NfXlT)  STRE113C 

PRINT  2l00,MTAG(N),  (SIG(l),  1  =  1 , 3 )  ,  SIRS  C  N  ,  4)  ,  ( SEP  (N,  I)  ,  I  s  1 , 3 )  ,  F  Y  ( N )  STRE  1 1 UC 


300  CONTINUE 

IP  (NIT  ,NE,  I TN ( NNN ) )  CO  TO  350 
PRINT  2002,TENMAX,NTEN 
350  CONTINUE 

IP  (NFxlT  .GT.  0)  CALL  EXIT 
RETURN 


STRE115C 
STRE 1 1 6C 
STRF117C 
STRE 1 1 8C 
STRE 1 1 9C 
STRE120C 


2000  FORMAT  (7H1EL.N0,  7X  1HX  7X  1 H V  UX  8HX-STPESS  9X  8HY-STRFSS  7X  STRE121C 

19MXV-STRF.SS  5X  1 OHMAX-STRESS  5X  1  OHMIN-STRESS  ,4X,5HANGLE  STRE  1 22C 

2  /15X,6HX-STRAIN,9X,SHY-STRAIN,7X,9HXY-STRAIN,5X, 10HMAX-STRSTRF123C 

3AIN,«X, 10HMIN-STRAIN.3X,5HANGLE  )  STRE124C 

2001  FORMAT  (I7,2FS.2,1P5E15.«,0P1F7.2  / 1 0 X , 1 P5E 1 5 , a , OR  1 F 7 , 2 )  STRE125C 

2002  FORMAT  ( 1 H 1 1  OX , 1 7HMAXIMUM  TENSION  «1PE10.3,11H  AT  ELEMENTI5/ )  STRE126C 

2003  FORMAT  CIS, 1P9E14.4)  STRE127C 

2100  FORMAT  ( 5X , 1 H ( , 1 2 , 1 H ) , 4X , 1 P3E 1 5 . « , 1 P5E 1 3 . 4)  STRE128C 

??'0  FORMAT (1  OX, 8hR. STRESS,6X, 8HT-S7RE SS, 3X, 9HRT- STRESS, 5X,8HR-STRAIN,  STRE129C 

1  6X,8HT-STRAIN,6X,9HRT*STRAIi!)  STRE130C 

2  30  0  FORM AT (ttX.RHMT AG. 2X,7HCURRENT#2X,8HX-STRESS# ax, 8HY-STRESS# 7X.9HXY-STRE1 31 C 
1STRESS,8X,5HSIGZZ,3X,15HEXCESS  X-ST RESS ,  2 ** ,  8HY-3TRESS,  3X ,  9HX Y-STRESTRE1 32C 
2SS.3X, lRHYIELD  FUNCTION)  STRE133C 

2a00  FORMAT (ax, *YIELD  FUNCTION (FY ) *, *  PRE V IOUS* , RX , ^PRESENT* , 3X , *3TRNTSTRE 1 3RC 
1H  RATIO*,*  EXPECTED  FY*,*  OVER  RELAXATION*,*  SIGZZ*)  STRE135C 

END  STRE136C 


SUBROUTINE  INITST  INIT  1C 

COMMON  /  /  NUMNP.N'JMEL.NUMMA  , NUMPC , ACELX, ACEL Y , HED ( 6 ) , NNN, NP,  INIT  2C 

1  NPCAV, REFPRS, DEPTH, N9lS,N, VOL, > CALC, IBACR.MJOINT.MTENS, NIT,  INIT  3C 

2  ITN(20),PRATIO(20),NISTOP,NMEAO,NSTSRT,NANALY  INIT  4C 

3,NCT,NCONST,NPBCP,NCAVPC  INIT  5C 

COMMON  /matp/  MTYPE,ROn2),E(S,12),AKOU2),MNTEN(12),MJNT(12)  INIT  6C 

J  , CRAC (12)  INIT  7C 

COMMON  /ELDATA/IX(900,5),MTAG(900),EPS(900),STRS(900,a),SEP(900,3)INIT  BC 

COMMON  /ARG/  RRR(5),ZZZ(5),S()0,10),P(10),RSTRS(a),LBAD,LM(a),  INIT  9C 

1  ANGLE(4),xi,HH(6,10),C<a,4),EE(Uj,H(6,10),D(6,6),  INIT  IOC 

2  F(fe,10),SIG(8),D3IG(8),RR(4),HSEL(31,4),DSIGZ  INIT  UC 

STRS(N,2)sREFPRS+R0(MTYPE)*(ZZZ(5)-DEPTH)  INIT  12C 

IF  (NRE9  .ED.  -1)  STRS(N,?)«0,0  INIT  13C 

STRS(N, l)«AKOCMTYPE)*STRSCN,2)  INIT  14C 

RETURN  INIT  15C 

END  INIT  16C 


SUBROUTINE  LOAD (JUMP ,  MT AP 1 ) 

C  *  *  *  *  FROM  STIFF  Jump* i 

C  *  *  *  *  FROM  STRESS  JUMP*9  -  ONLY  NEED  P(9)  AND  P(10) 

COMMON  /  /  NUMNP,NumEL#NUMMAT,NUMPC,ACELX,ACELY,HEDC8),MNN,NP, 

1  NPCAV,REFPRS,DEPTH,NRES,N,  VOL,  NCALC,  IBACK,  MJ0INT#MTEN3,MT# 

2  ITNC20) , PRAT  10(20 ),NI8T0P,NRE AD, NSTSRT, NAN ALY 
3»NCT#NCONST»NPBCP#NCAVPC 

COMMON  /MATP/  MTYPE,RO(12) ,E (8, 1 2 ) , AKO ( 1 2 ) , MNTEN ( 1 2 ) , M JNT (12) 

1  ,C»AC(12) 

COMMON  /ELDATA/IX(900,5),MTAG(900),EP9(900)»9TR9(900»4),SEP(900» 
Common  /ARC/  RRR(5),ZZZ(5),S(10,10)»P(10),R3TR3(4),LBAD,Lm(4), 

1  ANGLE  (4),*I,hh(6, 10) ,C(4,4) ,EE (4) ,H(6, 10) ,0(6,6) , 

2  F (6, 10),SIG(6),D8IG(6),RR(4),HSEL(31,4) ,D9I0Z 
DIMENSION  H3(31),X(3,10) 

EQUIVALENCE  (HS ( 1 ) , X( 1 , 1 ) ) 

IF  (NCALC  ,LE.  3  .AND.  JUMP  , EQ ,  1)  GO  TO  500 
RE  AD (MT API)  nI,8,hm,rrr(5) ,ZZZ(5).C#P,M9EL 

N  =  NI 

500  CONTINUE 

mTYPE*IX(N,5) 

IF  (NCALC  .EQ.  1  .AND.  NCT  .EQ.  1  .AND.  NNN  .EQ.  1 
1 .AND.  NIT  .EQ,  1 )  GO  TO  105 

IF  (NCALC  .EQ.  1 )  GO  TO  105 

C****  DO  NOT  CLEAR  GRAVITY  FOR  FULL  CALCULATION 
Dn  100  1*1,10 
100  P(I)=0.0 
10*5  DO  110  1*1,4 
110  RSTRSCDeO.O 

IF (MTAG(N) ,EQ,0)  GO  TO  400 
IF (E (2, MT YPE )  ,LT.  2.)  GO  TO  400 
IF  (NCALC  .NE.  1 .OR.NNN.GT.l )  GO  TO  200 

IF  (NPEAC  .EQ.  1 .OR.NCT.GT, 1 )  GO  TO  200 

IF  ( NRt 3  ,EQ,  0  .OR.  NRES  . EQ ,  2)  GO  TO  200 
DO  120  1*1,3 
120  RSTRS(I)«-STKS(N,I ) 

RSTRS(4)sRSTRSi'3) 

IF  (JUMP  , EQ,  1)  GO  TO  200 
DO  270  1*1,3 

$TRS(N,I)*STRS(N,I)+RSTRS(I) 

270  CONTINUE 
200  CONTINUF 

DO  310  1*1,3 

310  RSTRS(I)*RSTRS(I)-SEP(N,I) 

C 

IF  ( I X ( N ,  2 )  .EQ.  IX(N,3))  GO  TO  340 
IF  (IX(N,3)  .EQ.  IX(N,4))  GO  TO  340 
11*4 

GO  TO  350 

340  11*1 

350  DO  360  J*1,II 
DO  355  I J*1 , 31 
355  HS(IJ)*HSEL(IJ, J) 
on  360  I  * JUMP , io 

360  P(I)=  P(I)-HS(31  )*(RSTRS(1  )*X(1,I)+RSTRS(2)*X(2,I) 

1  "  RSTR9 (3 ) *X (3, I ) ) 

400  CONTINUF 
RETURN 
END 
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Subroutine  JTSTR 

common  /  /  numnP,NUKEL#MUMMAT,mJMPC# ACELX,ACELY,HE0(8),NNN,NP, 

1  NPCAV,RtFPRS,DcPTH,NRt S,n, VOL,NC ALC, IBACK,KjniNT,MTEN8,NlT, 

?  ITN(?0) ,  PRAT  10(20) ,MisinP,NPE AO,NSTSPT,NAMALY 

3,nCT,NCON3T,nP6CP,NCAVPC 

Common  /ELDATA/TK(900,5) ,MTAG(900) ,EPS(900) ,STR3(900,^) ,SEP(900, 
COMMON  /3ANARG/  9(180), A(90, 160), M6AN0,ND2,NUMBLK,MBMAX, NR 
1 , mt  API , MTAP2 

Common  /MATP/  MTYPE,Mn(12),E(R,12),AKO(t2)#MNTEN(12),MJNT(l?) 

1  ,C«AC(12) 

COMMON  /NPOATA/  R  (  999  ),  Z  ( 999 ),  CODE  (  999  ),  UR  ( 999  ),  iJZ  ( 999  ) 

COMMQK  /ARG/  9RR(5),Z7Z(5),S(10,10),P(10),R8TR8(a),LBAD,LM(9), 

1  anGLE(9),XI,mh(6,10).C(9,9) ,EF(«).H (6,10), D (6,8) , 

2  F (6,10),SIG(6),DSIG(6),RR(9),HSEL(31,9),DSIGZ 
CPMMON  /JNT/  FN (950 ) »  FT (950 ) , NJT 

DIMENSION  D ISP  (90 0,2)  ,V(9)  ,1.1(9) 

EQUIVALENCE  (OISP, a  (2000  ) ) 

WEAL  l,KN,KS 
PRINT  1001 

ESTABLISH  DISPLACEMENT  ALONG  AND  NORMAL  TO  JOINT 
IF  (NRES  .EQ.  -1)  PUNCH  2000,HED,NJT 
2000  FORMAT  (6A10,/*  INITIAL  STRESSES  FOR  JDInTSa/15) 

NJTrfl 

DP  500  Ni  1  ,  NIJMEL 
mat  b  I X ( N, 5  ) 

IF  (MJOINT  .EQ.  0)  GO  TO  500 
DO  50  I«l, MJOINT 

50  IF  (MAT  .EQ,  MJNT(I))  GO  TO  60 
GO  TO  500 
6  C  CONTINUE 
KNsf ( 1 , MAT ) 

K3«E(2,MAT) 

N JT*N JT+ 1 

IF(MTAG(N) .GT.O)  GO  TO  70 
FN(NJT)aO, 

FT(NJT)eO. 

GO  TO  500 
70  CONTINUE 
I*IX(N,1) 

J=  I  X ( N , ? ) 

DR*R(J)-R(I) 

DZ=Z(J)-Z(I) 

RRJ*0,5*(R(J)4R(I)) 

ZZJ=0.5*(Z( J)TZ(I)  ) 

I.sSQRT(DR*DR  +  DZ*DZ) 

DRaDR/L 
DZ=DZ/L 
DO  100  11=1,9 
K=IX(N,II) 

Vf II)a-B(2*K-l ) *DZfB ( 2*K ) *DR 
100  U(in«B(2*K-l)*DP  +  B(2*K)*DZ 
COMPUTE  EFFECTIVE  STRAIN 
EPSN  POSITIVE  MEANS  JOINT  IS  OPEN 

E  PST  POSITIVE  MEANS  (KK,LL)  MOVES  ALONG  U*  MORE  THAN  (II, JJ) 

200  EPST*0,5*(U(9)-U(1 )*U(3WK2J) 

EPSN«0.5*(V(9)-V(l)tV(3)-V(2)) 
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1C 

2C 

3C 

9C 

5C 

6T 

7C 

RC 
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JTST 
JTST 
JTST 
JTST 
JTST 
3) JTST 
JTST 
JTST 
JTST 
JTST  IOC 
JTST  11C 
JTST  12C 
JTST  13C 
JTST  19C 
JTST  1 5C 
JTST  16C 
JTST  17C 
JTST  1 0  C 
JTST  IRC 
JTST  20C 
JTST  21C 
JTST  22C 
JTST  23C 
JTST  29C 
JTST  25C 
JTST  26C 
JTST  27C 
JTST  28C 
JTST  29C 
JTST  30C 
JTST  3 1 C 
JTST  32C 
JTST  33C 
JTST  39C 
JTST  35C 
JTST  36C 
JTST  37C 
JTST  38C 
JTST  39C 
JTST  90C 
JTST  9 1 C. 
JTST  92C 
JTST  93C 
JTST  99C 
JTST  95C 
JTST  96C 
JTST  97C 
JTST  98C 
JTST  99C 
JTST  50C 
JTST  51C 
JTST  52C 
JTST  53C 
JTST  59C 
JTST  55C 
JTST  56C 
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COMPUTE  NORMAL  AND  SHEAR  FORCE  PER  UNIT  LENGTH  AND  CALCULATE 
INITIAL  STRFSSES  INPUT  ARE  ALWAYS  COMPRESSIVE  (NEGATIVE) 

F  NRmsO  ,  0 
FTRMsO.O 
EPNRMsO.O 

IF (NCALC.NE.l .OR.NNN.GT.l)  GO  TO  300 

I'  ( Nfi£ S  .EQ.  1  .OR.  NRES  ,EQ.  2)  GO  TO  300 

IF  (NREAD  .EO.  1  .OR.NCT.GT.n  GO  TO  300 

C?=DR**2 

S2=DZ**2 

SC*0R*07 

FNRES  =  STR3(N,n*S2tSTRS(N»2)AC2-STRS(N.3)*2.*8C 
FTRES*(-3TR8(N, 1 ) ♦ STRS ( N, 2 ) ) *SC-ST R8 ( N . 3 ) * ( S2-C? ) 
FN(NJT)aFNRES 
FT(NJT)sFTRES 
300  DO  310  11=1. a 
K=I*(N,II) 

V(II )«-DISP(K# 1 )*0Z+0ISP(K,2)*DR 
310  ll(II)=DTSP(K»l)*DR  +  DI3P(K»?)»0Z 
TEPST=0.5*(U(4)-U( 1 )*U(3)-U(2) ) 

TEPSNeO ,5*( V(4 )-V (  1 )  ♦ V ( 3) -V ( 2 ) ) 

FM(NJT)sKN*EPSN+FN(NJT) 

IF  (FN(NJT)  .LE.  0.)  GO  T"  201 
FNRMaFN(NjT) 

GO  TO  20? 

201  IF  (TEPSN  ,GE •  0.)  GO  TO  20? 

IF  (TEPSN  ,GT.  E(5,maT))  GO  TO  202 


E(S.MAT)  SHOULD  BE  INPUT  AS  A  NEGATIVE  QUANTITY 


I 

I 

I 


FNRN«KN*(TEP3N-E (5, MAT) ) 

EPNRM=TEP3N-E(5,MAT) 

?02  FT(NJT)=KS*EPST+FT(NJT) 

STREN  *  0, 

IF  (FN(NJT)  ,GE.  0.)  GO  TO  205 
IF  ( TEPST  . EG .  0.)  GU  Tn  210 

STREN  8  E(3.MAT)+ABS(FN(NJT))*TAN(E(U.MAT)*0, 01745329) 

IF  (ARS(FT(NJT)  )  .LT.  STRFN  )  GO  TO  210 
IF  (  FT(NJT)  .LT,  0.)  GO  TO  203 

FTRM=FT(nJT)«3TREN 

GO  TO  210 

203  FTRMs  FT(NJT)fSTREN 
GO  TO  210 
205  FTPM«FT(NJT) 

210  CONTINUE 

220  PRINT  1  000.  N.RRJ.ZZJ.FM(NJT).  FT  (N.TT)  .TEPSN,  TEP3T.EP8N.EP8T 
1  F  TPM 

IF  (NRES  ,E9.  -1)  PUNCH  2100  , F N ( N JT ) , FT ( N JT ) . N 
2100  FORMAT  (2F20.5.I5) 

IF  (EPNRM  ,EQ.  0.)  GO  TO  421 
EPNRMcEPNRM*Q ,5 
on  420  11=1,4 
KalX(N.H) 

SIGNT  =  1 . 

IF  (II  ,GT.  2)  3IGNT*-1. 

IF  (CODE (K )  ,EQ,  3)  GO  TO  420 


STHENGTHJTST  57C 
JTST  58C 
J T S T  59C 
JTST  bOC 
JTST  felC 
JTST  b2C 
JTST  b3C 
JTST  fe4C 
JTST  65C 
JTST  bbC 
JTST  b7C 
JTST  b8C 
JT3T  b9f 
JTST  70C 
JTST  7 1 C 
JTST  72C 
JTST  73C 
JTST  74C 
JTST  75C 
JTST  7bC 
JTST  77C 
JTST  78C 
JTCT  79C 
JTST  80C 
JTST  8 1 C 
JTST  82C 
JTST  83C 
JTST  84C 
JTST  85C 
JTST  8bC 
f TST  87C 
JTST  88C 
JTST  89C 
JTST  90C 
JTST  9 1 C 
JTST  92C 
JTST  93C 
JTST  94C 
JTST  95C 
JTST  9bC 
JTST  97C 
JTST  98C 
JTST  99C 
JTST 1 OOC 
JTST 1 0 1 C 
.  FNRM ,  JTST102C 
JTST 1 0  3  C 
JTST104C 
JTST105C 
JTSTlObC 
JTST107C 
JTST10BC 
JTST109C 
JTSTUOC 
JTST 1 1 1 C 
JTST112C 
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1000 

1001 


ifccodeck)  ,eq.  n  go  to  -is 

OISP(K, 1 )*DISP(K , 1 )-SICNT*EPNRH*OZ 
(CODE ( K )  ,  1 0 ,  2)  GO  TO  420 

>  DISP(K,2)*DISP(K,2)+SIGNT*EPNPM*DP 

>  CONTINUE 
,  CONTINUE 

IF  (FMRM  ,EO.  0.  .AND.  FTPM  .EQ.  0.  )  GO  TO  <*31 
IFCEPNRM  ,NE,  0.)  GO  TO  425 
FN(NJT)  *  FN(NJT)  .  FNPH 
•  F 7 ( N  JT )  *  FT(NJT)  -  FTPH 
FNRM*FnRM*0 ,5 

ftrm*ftph*o.S 

DZ*DZ*L 

DR=DR*L 

DO  <130  11*1, a 

X*IX(N,II) 

9IGMT*1 , 

IF  (II  ,GT,  2)  SIGMT*-!  • 

IF  ( CODE  ( K )  ,  EC  ,  3)  GO  TO  <*30 
IF  (CODECK)  ,EQ.  1)  GO  TO  428 
UP(K)*UP(K)<fSlGNT*(ENRM*DZ-FTPM*OP) 

IF  (CODF(K)  , EC,  2)  GO  TP  430 

UZ(K)«UZ(K )«3IGNT*(FNRM*DP+FTRM*DZ) 

continue 

continue 

continue 

RETURN 

FORMAT  ( I5#2F8,2#8E 13,5) 

FORm*t(  1H1 ,  #,hEL  NO.  ,4X,  !M)f,5X,lMyf  3X,  12HNOPMAL  STRS, 
1  PS , , 1 4H  T0T.NPR,DISP.,14H  T0T,TANGDISP,,14H  DEL. NOR. 
2TANG0ISP,, 12m  REMQVD  SIGN,12H  REMOVD  S1GT  //) 

END 


JTST1 1 3C 
JTST1 14C 
JT9T1 15C 
JTS71 IfeC 
JTST1 1 70 
JTST1 18C 
JT3T11 PC 
JTST120C 
JT8T121C 
JTST122C 
JTST123C 
JTST124C 
JTST125C 
JTST126C 
JTST127C 
JTST12DC 
JTST12PC 
JTST130C 
JTST131C 
JT3T132C 
JT3T133C 
JTST134C 
JTST13SC 
JT3T136C 
JTST137C 
JTST138C 
JTST13PC 
JTST140C 
,13H  TANGTL  STJTST141C 
DISP. , 1 4H  DEL. JTST142C 
JTST143C 
JTST144C 
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SUHHOUT I NE  FPLAST  (NEXIT) 

C****  This  SUBROUTINE  CALCULATES  STRESS  IN  ELEMENT  AT  YIELD 

COMMON  /  /  numnP,NI)MEL#NUMMAT#KUMPC,  ACELX,ACELY,HED(8)#NNN,mP, 

1  nPCAV,REFPPS,OEPTh#NRES#N, VOL, NCALC# I BACK, M JOINT, MTEN3# NIT# 

2  ITN(20) ,  PR  AT  10(20 )  ,M  STOP,  MRt  AO,  NSTSRT.N  ANAL  Y 
3#  NCT,NCONST#NP?CP#  NCAVPC 

Common  /MTP/  MTYPE#RO(12)#E(B#  121#  AMO(12),MNTEN(12),MjNTf  12) 

1  #CRAC(12) 

C<~  -ON  /ELD AT A/I X (900, 5) ,  *T AG  (900  ) ,  EPS  (900 ) ,  STMS  ( <>00 , 9 ) ,  SEP  (900 , 2 
COMMON  /bANARG/  B(180)#A(9(I,180),MBANO,ND2,NUM8LK#MBMAX,NB 
1 #  mt  API #  MTAP2 

COMMON  /ARG/  RRR(5),Z7Z(S),3(10,10),P(t0),R37PS(9),LBAD,LM(9), 

1  ANGLE(9),Xl,HH(6,10),C(9,9),FE(9),M(6,10),D(6,8), 

2  F(fe,10),SIG(6),DSIG(6),RR(9),HSEL(31,9),DSI&Z 
D I Mp NS I ON  FY(900),  S I GP ( 5 ) 

EQUIVALENCE  (FY,A(9000)) 

RP  =  0. 

OvRXej , 

IF(E(?,MTYPE)  .LT.  2.)  GO  TO  700 
on  inn  i » i # 3 

RSTRS(I)S0.0 
mo  SEP(N#I)a0,0 

IF (MTAG(N),EQ,0)  GO  TO  700 
00  101  Is 1 #  5 
mi  SIGP(I)*SIG(I) 

TENSmo.O 
TENS 2*0.0 
PN«C(3,mtyPE) 

IF  (MTENS  ,EO,  0)  GO  TO  110 
DO  toB  1*1, MTENS 

mb  IF  (MTYPE  .EG.  MNTEN(I))  GO  TO  ISO 
Z****  CALCULATE  TENSILE  STRESS  IN  NO  TENSION  ELEMENTS 
110  CONTINUE 

EPSMiSIG(6)/57. 29577 
S2*SIN(EPSM)**2 
C2*C0S (EP3M) **2 
CS»SIN(EPSM)*COS(EPSM) 

TMAX*E(1, MTYPE) 

IF  (MTAG(N)  , E 0 ,  1)  GO  TO  150 

IF  (SIG (4 )  ,GT,  CRAC(MTYPE)*TMAX  .AND,  mtaG(N)  ,NE,  a)  GO  TO  112 
IF  ( 31 G ( 9 )  ,LE.  TMAX)  GO  TO  ISO 
112  TEN31*SIG(9) 

IF  (mt  AG  (N)  ,EQ.  3  .AND.  SIG  (5 )  ,  GT .  0.)  GO  TO  IK 
IF  (SIG (5 )  ,LE ,  TMAX)  GO  TO  120 

119  TEN32«3IG(5) 

120  CONTINUF 
T1=TEN31 
PN2«1.4PN*PN 

TENS1«TENS1*PN2>TFNS2*PN*PN2 
TENS2*TENS2*PN2>T1*PN*PN2 
«STR3(1)=TENS1*C2+TENS2*S2 
R3TRS(2)*TEN31 AS2TTENS2*C2 
R3TR3(3)e(TENSl-TENS2)*C3 
DO  125  1*1,3 

IF  (ABSmSTRSd))  . GT ,  1)  nistop*nistopyi 
125  3IG(I)*3IG(I)-RSTR3CI) 


E  PL  a 

1C 

EPL  4 

2C 

EPLA 

3C 

t  PL  A 

9C 

EPLA 

SC 

EPLA 

6C 

EPLA 

7C 

EPLA 

er 

EPLA 

9C 

EPLA 

IOC 

EPL* 

lie 

EPLA 

12'. 

EPLA 

i  se¬ 

EPLA 

me 

E»LA 

ISC 

EPLA 

1  bC 

EPLA 

1  7  C 

EPLA 

18C 

EPLA 

1  9C 

EPLA 

20C 

EPLA 

2 1 C 

EPL* 

22C 

EPL* 

23C 

EPLA 

29C 

EPLA 

25C 

EPLA 

26C 

EPLA 

27C 

EPL* 

28C 

EPLA 

29C 

EPLA 

30C 

EPLA 

3  1C 

EPLA 

32C 

EPLA 

33C 

EPLA 

39C 

EPLA 

35C 

EPLA 

36C 

EPLA 

37C 

EPLA 

38C 

EPL* 

3RC 

EPLA 

9  0  C 

EPLA 

9  1  C 

EPLA 

92C 

EPLA 

93C 

EPLA 

9  9  C 

EPLA 

95C 

EPLA 

9  feC 

EPLA 

97C 

EPLA 

9  AC 

EPLA 

99C 

EPLA 

50C 

EPLA 

5 1 C 

EPLA 

52C 

EPLA 

53C 

EPLA 

59C 

EPLA 

55C 

EPLA 

56C 
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r  ALL  PMlNSTfSIG) 
ISO  IF  (ARS(SIGdJ)  , 
ANG*E  (fe,MTYPf-  ) 
ALP*E (7,“TYPE) 
f  *  =  E  (R,MTYPE) 

CALL  PPIMST(OSIG) 
IF  (NANALV  ,EO.  0 


PPLA  57C 

LE.  l.E-10  .AMD.  ABS(SIG(2))  .LE.  1.E-10JGD  TO60OEPL A  5RC 

EPLA  59C 


E  PL  A  fcOC 
EPLA  felf 
EPLA  62C 


IF  (NANALV  .EG.  0  .AMO.  FY(N)  ,L  T .  0.)  GO  TO  Ifeft 
IKMcpT  .  F  Q  ,  1  .AMO.  MIT  .GT.  2)  GU  TO  160 

T  P  (  m„  « AL Y  .GE,  1  .AMO.  MIT  . GT .  1  .AND,  m$PT  .fcQ.  0)  GO  TO  160 
IP  (FV(N)  .IT.  0.)  GU  TO  160 

nSIGZ*0,S*(09TG(tf)«'DSIGf5)"fDSIG(«)»PSlG(S))*3lN(ANG)) 

160  GIG7T=STMS(^,a)+DSrGZ-PM*(«STPS(l )+PST»SC?) ) 

5G7TT  sSIGZT 
SGZI=SIGZT 

5TJl *3IG(«)*SIGf5)*3 .GZT 

STJ2af  (5IG(<n-SlG(5n**2+(SIGf5)-3IGZT)**2+(3TG7T-SIG(4))**2)/6. 

FAK=ALP*«TJ1-FK 

SPJ2eSQPT(STJ2) 

F Y?aF  AK ♦SPJ? 


EPLA  63C 
EPLA  6UC 


EPLA  65C 
EPLA  6bC 


EPLA  670 
EPLA  6dC 
EPLA  6PC 
EPLA  TOC 
EPLA  7 1 C 
EPLA  72C 


EPLA  73C 
EPLA  7pl 


IP  (FY?  , GE .  0.0)  GO  TO  lfe5 
IF  f  MTAG(M)  .r  Q.M  MTAG(E')aJ 

IF(mtaG(m).EG.5)  MT  AG ( M ) *? 

IF  (MTAG(M)  .E0.41  e*TAG(n)  =  i 

STPS(M,a)*ST«S(M,4i)+PM*(0SIG(P)*0SIGf5))-PN*(PSTPS(l  )*PST»S(2) ' 
GO  Tf)  570 
165  CHMTIMUF 

IF(HTAGfM).Ea.l)  MTAG(M)=a 
IF(MTAGfM) .EQ,2)  MTAG(M)=5 
IF(MTAG(M),FG,3)  mTAG(M)s6 
IF  (AR9TFAK)  ,LT.  0.0001)  GO  TO  170 
Fv2RTs-f y?/FAK 
GO  TO  175 
170  FY2RTS10. 

175  CONTINUE 

IF  (FY2PT  , GT ,  0,05)  NISTOP»NIST0P*1 
IF  (FY2PT  .GE.  0.15)  C  F  Y» 1  ,  0 

IF  (FY2PT  . LT .  0.15  .AMO,  FY2RT  .GE.  0,1)  CFY*0.7S 
IF  (FY2PT  .LT.  0.10)  CFY»0.50 
IF  ( F Y ( M )  . GE ,  0.)  GO  T"  30  0 
***•  F(SIGO)  LT  ZEPO  RUT  F(STG)  GE  ZE»0 


EPLA  75C 
EPLA  76C 


EPLA  77C 
EPLA  78C 


EPLA  79C 
EPLA  80C 


EPLA  PIC 
EPLA  .2C 


EPL«  £  i  . 
EPLA  P«‘ 
Epla  rr 
EPLA 
EPLA  0, 
EPLA  .V 
EPLA  ; 
EPLA  <  C 
EPLA 

EPLA  _ 

EPLA 

EPLA 


EPLA  95c 
EPLA  9bC 


EPLA  P 7 1' 
EPL*  PflC 


DJlsD*IG(<0*DSIG(5)AnSIGZ  PPLA  90. 

0J2*( (0riG(a)-CSIG(5) )**2+(0SIG(5)-DSIGZ)**?*  EPI  A100C 

t  (D9IGZ*09IG(P)  )**2)/6,  tPLAlOU 

DFsALP*DJU9QPT(0J2)  EPLMOJC 

IF  (ARS(DF)  ,LF.  1.0E-10)  GO  TO  500  EHA102C 

RF*FY?/DF  E  P  L  A  1  0  ‘t  C 

00  250  1*1,3  EPLA10LC 

250  SIG(I)«SIGCI)-D9IG(I)*RF  E  PL  A  1 06C 

5G?T  Ts  ( 1 ,-PF)*PM*(DSIG(9)  +  0SIG(5) )-PM* (PSTMSd )+PST»S(2) )  E  PL  A  1 07C 

1*STBS(M,«)  EPLA108C 

SlGZT*SGZTT*PF*0.5*(0SIG(a)*DSIG(5)-(03IG(P)-OSIG(5) )*SIM(AMG) )  EPL  A  1 09C 
STJ1*9IG(1  )*SIG(2)<P3GZTT  EpL  A  1 1  GI¬ 

ST  J2*  ( (  9IG  ( 1) -SIG  ( 2 )  )  **2*  ( SIG  (?) -SGZTT )  **2*  ( 3GZTT-SIG  ( 1) )  **?) /6 .  ♦  EPL *111C 
1  SIG(3)**2  EpLAll2C 


) 
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inp 


MO 


350 


360 

C 

c  *  *  *  * 

c 

370 

c 

sop 

30S 

510 

520 

525 

^SG 


55? 


555 

560 


2000 

570 

600 

650 

700 


CPMT I ^uF 

E  PL  A  1 1 3C 

II 

a 

4t 

EPLA1  1**C 

u<*T  =  0 

FPL A1 15C 

0  ALL  5TBST«C5TJl  .STJ2,SGZTT,*4FP,K  ,NCALC 

,  NE  x  1 T ) 

E  P  L  A  1 1  6  C 

no  350  1*1, a 

t  PL  4 1 1 7C 

siGum.o 

EPLA116C 

on  350  k*1 ,a 

E  PL  A  1 1 9C 

SIG(n*Sir.(!)+CfI,t<)*PO(Kl 

EPLA120C 

0S1GZZ=SIR(3) 

E  PL  A  1  ?  1  C 

MGC3)=SI5(«) 

EPLA122C 

CnNT  INiiF 

E  Pi  A l 2  3C 
EPLA 1 2uC 

CALCULATE  EXCESS  STRESS  TH  BE  SUPPORTED 

bY  BODY  fpr:es 

F  PL  A  1 ?5C 
EPLA1 ?6C 

o r  370  1*1  ,3 

EPLA127C 

SEP(N,I)*DS!G(I)-SIG(I) 

EPLA12BC 

05ir,Z3sOSTGZ-0SIG7Z 

EPLA12RC 
EPLA 1 30C 

Continue 

EPLA131C 

FV0VRX*-CFY*P Y? 

EPLA132F 

DO  510  1*1,3 

EPLA133C 

siG(n«sEP(N,n*ovBx 

EPLA130C 

5  TGZN  =  SGZI-  6SIGZJ*QVPX 

EPLA135C 

sgztt=sigzn 

EPL  A  1 36C 

Cont  J muF 

EPLA! 37C 

Dn  550  1=1,3 

EPl A136C 

3!G(n«81GPm-SIG(I) 

EPL a ! 3 PC 

STJl»?IG(n*8IG(.?)+9IGZN 

EPL  a l aoc 

ST.T2*r  (BIG  (\)-SIGf2)  )**?♦<  SIG  (2) -SIGZN)  **?♦ 

E  PL  A  1 o  l  C 

(SIRZN-SIGd)  )**2)/6.*SIG(3)**2 

EPLA1U2C 

UST*N3TM 

F.PLAia3C 

IF  (OVPX  ,EQ.  1  .460.  N3T  ,E0.  1)  GO  TQ 

310 

EPLA1RRC 

F YCU»=ALP*STJ1 ♦SQPT(STJ?)-Fx 

FPLA1U5C 

IF  (E(7,MTYPF)  ,lt,  0,0001)  GO  TO  555 

EPLA 1«6C 

IF  (OVPX  .EG.  1.)  GO  TO  552 

EPLA 1  a  7  C 

IF  (FYCUB  ,GE,  FYCUP1)  GO  TO  555 

EPL A  1 UBC 

F  vciJPl  =F  YCUP 

EPLA14BC 

IF  (FYCIIW  ,LT ,  FYOVRX)  GO  TO  555 

EPL*150C 

IF(NANALY  ,GE.  1)  GO  TC  555 

EPL A  1 5  1  C 

IF  (OVRX  .RE,  1.5)  GO  TD  555 

EPLA152C 

ovpx*ovpx*o. 1 

EPLA153C 

Gr'  TO  505 

EPLA15UC 

CONTI MUF 

EPLA155C 

DO  560  1*1,3 

EPLA156C 

SEP(N,I)*SEP(N,I)*OVRX 

EPLA157C 

PRINT  2000 »  FY(Ni)  ,FY2,FY2RT,FYCUP,OV«X, 

SIGZT 

EPLA15BC 

STRS(N,a )*SIGZN 

EPL 4 1 5QC 

FORM* y  (?2x,8F12,U) 

EPLA160C 

FY(K ) =F  Y2 

FPLAlfelC 

CONTINUE 

EPL* 1 62C 

DP  650  1=1,3 

EPLA163C 

SFP(N,I)«3ER(N,I)*R3TRS(I) 

EPLA16RC 

continue 

EPLA 165C 

return 

EPLA166C 

END 

EPL A  1 67C 
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s  'PR'-'  TTnF  S  t  m  $  T  p  (STJ1  ,ST  J?.SI»*-7T#F'k'P.M.MC»lC.MEXIT) 

ST  PS 

1C 

C«"iPN  /fL0ATA/Ix(Q00,N),M7  agCROOT.EPSUOO)  ,STWS(90O,a),SEP(9OO, 

3 ) STPS 

2C 

COMMON  /(■'ATP/  MTVMt  ,enfi  ?)  ,  F  (e,  1 2 )  ,  AM)  (  1  ?  1  .  MNTFH  (  *  2  )  .  M  JN7  f  12) 

STPS 

3C 

1 

*  C°ac ( i ? ) 

SIPS 

uC 

rrjMMrvi  /t sg/  °wr(S),777(S),S(io.io),p(i0)#pstr$(u).ibad,lmU). 

STMS 

SC 

1 

ANGLE  U)  ,XI,mh(6. 10) 

»CUU),EEU),HU.10),P(N,ft), 

STPS 

6C 

p 

f  (ft.  1  o)  ,sir,m  .dsigcm.prukhsei  f 31  ,<n,nsjr,7 

STPS 

7  C 

nn  100  i=i, a 

STPS 

bC 

('0  lor  Js  1  , a 

STPS 

PC 

C  f  I  ,  J  )  =  0  . 

STPS 

1  oc 

1  nr 

CnMTi»iuE 

STPS 

1  1C 

IF-  (NF  p  ,E').  n  G-'  Tn  2S0 

5TPS 

12c 

IF  fsfALC  .LF.  2)  GO  rn  10a 

SIPS 

13C 

IF  (MTAGf  FO.GT.l)  pn  TO  ?00 

STRS 

UC 

1  0  u 

C'.MTN"iF 

STPS 

ISC 

nn  10s  km  =  1 , a 

STPS 

lfeC 

1  os 

fcf  (  *  *  )  *f  c  K*  ♦  1  ,*rTfPt  ) 

STPS 

17C 

C 

STPS 

IflC 

!*••• 

«Tag=i  *eans  T*at  sot*  principal 

ITBfSSES  API  CTMPPfSSm 

STRS 

1  RC 

c  •  *  •  • 

^TAG«?  *«EA»,S  T«4T  nSLV  THE  MAJOR 

PPINCIPAL  STPE?S  IS  TEFSILE 

STPS 

2  OC 

r  •  «  •  • 

MTAGs3  MFA»iS  T*AT  BOTw  PPInCIPaI 

•TDFSSES  AOt  TFN3ILE 

STPS 

2 1  C 

c  *  *  *  * 

mT»Csu  mfas?  TrM  Th£  ►LF^FMT  FAILS  IN  COMPRfc  S  S I  ON 

STRS 

22C 

r  •  •  •  • 

“TAGaS  *<FA\5  T«AT  IT  FAILS 

TFNJIlF  “AJOB  PRlNClPAl  STRfSS 

ANSTRS 

?3C 

-TAGa*  m£AN*  UAT  IT  FAIL?  UNDER 

BUT *  TENS I*  E  PPINCIPAL  STRESSES 

ASTRS 

2ac 

r 

STRS 

2SC 

IF C“TAG(N)-?)  1*2.1Pu,1«3 

STPS 

26C 

i. «2 

F.Fn)sEE(l) 

STRS 

27C 

GO  Tn  Ifla 

STPS 

2RC 

1«3 

EE  f 1 ) »EE ( 3) 

STPS 

29C 

1  Pa 

EF (1 )=EE(1  )/(l ,0-EF (2)**2) 

STPS 

30C 

EF(3)=EE(3)/(i .-EEC?)**?) 

STRS 

3  1 C 

FEf?)*EF(2)/(l,-EEC2)) 

STPS 

32C 

X  x  =  E E  f  1  )  /EE  F  3 ) 

STRS 

33C 

COmmsEECI  )/fXX-EEC2)**2) 

STRS 

3«C 

C  f  1  ,  1  )  sCOMf**y, x 

STMS 

3SC 

CC 1 ,?)=C0MM*Ff (2) 

STRS 

36C 

Cf2, 1 )=C(1,?1 

STPS 

37C 

C ( 2 , 2 ) ®COyM 

STPS 

38C 

C ( 3 , 1 ) *C ( 1 »  2 ) 

STPS 

3RC 

C  f 3,2)«C  (1 ,2) 

STPS 

POC 

C(u,«)  =  ,S«EE(n/CXX*EF(?)) 

STRS 

Pic 

GO  TO  300 

STRS 

i'?c 

2oo 

nn  21  fi  1  =  1,3 

STRS 

P3C 

SIG(I)»9T9SCN,I)-SEP(M.I) 

STRS 

unc 

210 

CONTINUE 

STRS 

use 

SIGZT=STPSfN,a) 

STRS 

UbC 

STJ1  =  SIG(  1 )TSTG(2 jtSIGZT 

STPS 

(>7C 

STJ2s( (SI'(l)-STG(2))**?+fSIG(2)- 

SIGZT  )**2*C3IG( 1 )-SIGZT  ) 

STRS 

UHC 

♦  *2)/F*,0tS!G(3)**2 

STRS 

U9C 

2S0 

SPJ2=  SPPTfSTJ?) 

STPS 

50C 

IE  (  S  T  J  2  ,GT,  l.E-fe)  GO  TO  270 

STRS 

5 1 C 

MFXIT*NEXTTM 

STRS 

52C 

POINT  2000,  N,?TJ1,STJ2 

STPS 

53C 

2000 

F  OHM AT (1  OP  *********, 2X,*FL, NO, s« 

,I5,5X,*JU*,EiS.S,*J2s*,E15.b) 

STPS 

5UC 

a  o 

CONTINUE 

STRS 

55C 

Pn  =  E  f  3, MTYPE) 

STRS 

S6C 
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4)  PsF  (  7,MTVPP) 

Pk=f  (f,,MTYPP) 

FC*F  CP.HJYPP) 
tG«FC/((l,+PM5*?.5 
F^=rr/C3.*Ci ,-2.*pn55 

^Ost  .+9,*(ALP**25*fc*/EG 

HI  B(1 ,5*fc**A|_P/tG-ST  J1  /  (b,*$MJ2)  )/(SR,J2*H05 
h?s( ( AlP-STJ1/(B.*SRJ25 5  * ( 3 . *EK*ALP/EG-ST J1  / ( 3 . *SP J2 5 ) 
1  3,*PM*fcK*FK/(fcOSRJ2))/HO 
M3*0,S/(ST.J?*Mp) 

r 

r****  CALCULATE  El.  ASTQ-PLASTIC  STRESS-STRAIN  HELAT  IfiNiSHJP 
r 

C(l,  1  )=2,*EO*(l  ,-H2-2.*Hl*SIG(n-H3*SIG(  1  5**25 
F  ( 1 ,25=-?.*Er,*(M?  +  HJ  *(SIG(l)+8IG(21UM3*siG(l)*SIfi(2) ) 
C(1  ,95=-2,*EG*(Hl*SlGC3WH3*SIG(15*SIG(35  5 
c(?,i)scn,?) 

c (2,2 JS?,*PG*(1 .-H2-2,*W1*SIGC2)-H3*SIG(?)**2) 

C  (?,P1=-?,*FU*(  H1*SIG(35*H3*SIG(25*SIG(  35  5 

C(3,  1 5=-2,*EG*(H2+h1*(SIG(15*SIGZT5+H3*SIG(  l)*SIGZT) 

c  (3,25=-2.*EG*(H2*Nl*(S!G(25*SIGZT5*H3*SIG(?5*SIGZT5 
C  (3,  9)=-2,  *Fr,*(Ht*SIG(3)+H3*SIGC3)*SIGZT) 

C(P,25=C(?,P5 

c  (P,p5*?.*FG*(  f.,5-H3*SlG(3)**25 

C 

300  TP(EPS(N),F.o,0.O)  GO  TO  POO 

C 

SS=SIO(FPS(N) ) 

CC*cnS(FP3(W)) 

S2sSS*SS 

r?*cc*cc 

sc=ss*cc 

D(1,15=C2 

r>(  1  ,25*S2 

0(1,35=0,0 

0(1,P5=SC 

D(2,15=SP 

0(?,25=C2 

0(2,35*0.0 

»(?,P5*-SC 

o(3.n  =  o.o 

0(3.25=0,0 

0(3,35*1.0 

0(3, J)=0. 1 

o(p,  n=-p,o*sc 

0(p,?5*-o(4, 1 5 
0(«,  35*0.0 

D(P,<n=C2-8? 

OP  350  1 1  =  1 , P 
On  350  JJsl.p 
h(II, JJ5=0,0 
on  350  KK*1,U 

3C'0  *(11, JJ5=h(H, JJ)  ♦C(II,kk5*0Ckk,JJ) 

On  3h0  I  T  =  1 »  P 
nri  3fc0  JJ«!,P 


STMS  s  jr 
STMS  SBC 
STMS  5QC 
STMS  60C 
STMS  MC 
STMS  62C 
STMS  6  3C 
STMS  SPT 
STMS  55C 
STMS  '-bC 
STMS  67C 
STMS  ppr 
STMS  BMC 
STMS  70C 

STRS  7 1 C 

STMS  72C 
STRS  73C 
STRS  7PC 
STMS  7SC 
STMS  7feC 
STMS  77 r 
STMS  7BC 
STMS  79C 
STMS  POC 
STMS  B 1 C 
STMS  B2C 
STMS  83C 
STMS  Paf 
STMS  85C 
STMS  P<SC 
STRS  87C 
STMS  880 
STRS  P9C 
STMS  90C 
STRS  QIC 
STRS  9?C 
STRS  93C 
STRS  9PC 
STPS  95C 
STRS  96C 
STRS  97C 
STRS  9PC 
STRS  90C 
STHStOOC 
STRS101C 
STRS102C 
STRS103C 
STRS109C 
STRS 1 OSC 
STRS106C 
STRS1 07C 
STRS lose 
STRS109C 
STRS 1 1  OC 
STRS1  UC 
STRS1 12C 


/ 
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I 
I 

tC(II*JJ)«0.0 
DO  360  KK«1,4 
360  C  ( II,  JJ)«CCII ,  JJ)+D(KK, 1 1 )*H(KKi JJ) 
R00  CONTIMUE 
I  RETURN 

■  END 

I 

I 

I 

I 


STR31t3r 
STRS1 14C 
STRS115C 
STR5116C 
3  T  R  S 11 7  r 
STRSlieC 


i 

I 

I 

J 


SUBROUTINE  npE0RC(MJMpc. IJBC,NPCAV,PSCA,NL#NM,<shIFT,NNN,PRAT!0. 
1  R  *  Z  >  B » NPC A » CODE  ) 

DIMENSION  I JRC(50.2) ,PSCA(75,3) ,PS8CC6) #PRATIO(20) ,R(999), 

1  Z(999),B(90),NPCA(75).CODE(999) 

DIMENSION  10(2) 

ID  C 1  )r2 
I D  ( 2  )  *  J 

BOUNDARY  CONDITIONS 

1.  PRESSURE  M.C. 

00  300  L=1,NUMPC 
I* I JBC  CL, 1 ) 

J«IJBCCL»2) 

NTPc  1 

IF  td.6E.NU  .AND.  (I.LE.NM))  N T Pc 0 
IF  (  ( J.GE.NL)  ,*N0,  (J.IE.NM))  NTP*0 
IF  (NTP  ,E0.  1)  GO  TO  300 
DRsR(J)-Rd) 

DZ«Z(J)-Z(I) 

SINAcl.O 

COSAxO.O 

IF(ABS(OR)  ,Lt .  l.E-10)  GO  TU  252 
AG*ATAN?(DZ.DR) 

8INA*3IN( AG) 

COSA«C0S(AG) 

252  S2cSINA*SINA 
C?*COSA*COSA 
SCcsINA*COSA 
KDaO 

00  253  NCct.NPCAV 

IF  (I  ,EQ.  NPCA(NC))  K0«1 

IF  (J  .EQ,  NPCA(NO)  KD»? 

IF  (KD  .EQ.  0)  GO  TO  253 
KDP2CK0+? 

KDP««KD*u 

P3BC(KD)»PSCA(NC»1) 

PSBC(K0P2)«P9CA(NC,2) 

PSBC(KDPU)*PSCA(NC,3) 

253  K D» ft 

DO  255  M«l,2 

3IGNNbS2*P3BC(M)K2*P89C(m*2)-2.*3C*PSBC(MU) 
8IGTi-SC*PS9C(H)+SC*P3BC(P+2)+CC2-32)*PSBr (Pffl) 

P3BC (M)«3IGNN 
MP2sM*2 

255  PSBC(MP2)=SIGT 
DO  290  M»l,2 

Ns  I D ( M ) 

I«IJBCCL,M) 

JelJBC(L.N) 

IP  ( ( I  .LT.NL)  .OR.  (I.GT.NM)  )  GO  TO  290 

I2*2*I-<3HIFT 

11*12*1 

PlaPSBC (M) 

PJePSBC(N) 


NPFO 

1C 

NPFO 

2C 

NPFO 

3C 

NPFO 

uC 

nPFO 

5C 

NPFO 

6C 

NPFO 

7C 

NPFO 

8C 

NPFO 

9C 

NPFO 

IOC 

h  Ppn 

11C 

NPFO 

12C 

NPFfl 

13C 

NPFO 

UC 

NPFO 

15C 

NPFO 

16C 

NPFO 

1  7  C 

NPFO 

18C 

NPFO 

19C 

NPFO 

20C 

NPFO 

2 1 C 

NPFO 

22C 

NPFO 

23C 

NPFO 

29C 

NPFO 

25C 

NPFO 

26C 

NPFO 

27C 

NPFO 

26C 

NPFO 

29C 

NPFO 

30C 

NPFO 

31 C 

NPFO 

32C 

NPFO 

33C 

NPFO 

39C 

NPFO 

35C 

NPFO 

36C 

NPFO 

37C 

NPFO 

38C 

NPFO 

39C 

NPFO 

UOC 

NPFO 

R1C 

NPFO 

a2C 

NPFO 

U3C 

NPFO 

<I9C 

NPFO 

«5C 

NPFO 

96C 

NPFO 

AA  7  C 

NPFO 

98C 

NPFO 

«9C 

NPFO 

50C 

NPFO 

5 1 C 

NPFO 

52C 

NPFO 

53C 

NPFO 

5RC 

NPFO 

55C 

NPFO 

56C 

SJ*PSPC(M+2) 

SJ*PSPC (N+2) 

PM= ( 2 . *PT  +  P  J) /b . 

SMr  (2.*3HSJ)/6. 
Pls-DZ*PM*!)R*flM 
P2»  0F*PM40Z*SF 
R1=R1*PRATI0(NNN) 
P2eR2*PRATI0(NNN) 

SlNA*0.0 
COSAel .0 

IP  (CODE (I)  .RE.  0.)  GO  TO  280 
ARsCODE(I)/S7, 29577 
SINA«SlN(aG1 
COSA«COS(AG) 

280  R(I1  )*R(I1)*P1*C08A*R2*SIKJA 
P (I2)*B(I2)-H1*5INA*r?*C0SA 
290  CONTINUE 
300  CONTINUE 
310  CONTINUE 
RETURN 
END 


NPFO  57f 
npfo  sec 

NPFO  S9C 
NPFO  60C 
NPFO  feic 
NPFO  62C 
NPFO  feJC 
NPFO  6UC 
NPFO  #»5C 
NPFO  66C 
NPFO  f>7C 
NPFO  fc8C 
NPFO  69C 
NPFO  70C 
NPFO  7 1 C 
NPFO  72C 
nPFO  73C 
NPFO  7 AC 
NPFO  7SC 
NPFO  76C 
NPFO  77C 


